VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmSetup 
   Caption         =   "Setup"
   ClientHeight    =   7560
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6600
   Icon            =   "frmSetup.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   7560
   ScaleWidth      =   6600
   StartUpPosition =   1  'CenterOwner
   Begin TabDlg.SSTab SSTab1 
      Height          =   7440
      Left            =   60
      TabIndex        =   146
      Top             =   120
      Width           =   6480
      _ExtentX        =   11430
      _ExtentY        =   13123
      _Version        =   393216
      Tabs            =   12
      Tab             =   2
      TabsPerRow      =   4
      TabHeight       =   520
      TabCaption(0)   =   "Server"
      TabPicture(0)   =   "frmSetup.frx":030A
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "fraSetup(0)"
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "Peripherals"
      TabPicture(1)   =   "frmSetup.frx":0326
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "fraSetup(2)"
      Tab(1).ControlCount=   1
      TabCaption(2)   =   "Int'l"
      TabPicture(2)   =   "frmSetup.frx":0342
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "fraSetup(3)"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).ControlCount=   1
      TabCaption(3)   =   "Program Locks"
      TabPicture(3)   =   "frmSetup.frx":035E
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "fraSetup(8)"
      Tab(3).ControlCount=   1
      TabCaption(4)   =   "Batch Defaults"
      TabPicture(4)   =   "frmSetup.frx":037A
      Tab(4).ControlEnabled=   0   'False
      Tab(4).Control(0)=   "fraSetup(5)"
      Tab(4).ControlCount=   1
      TabCaption(5)   =   "Batch Input"
      TabPicture(5)   =   "frmSetup.frx":0396
      Tab(5).ControlEnabled=   0   'False
      Tab(5).Control(0)=   "fraSetup(1)"
      Tab(5).ControlCount=   1
      TabCaption(6)   =   "Batch Output"
      TabPicture(6)   =   "frmSetup.frx":03B2
      Tab(6).ControlEnabled=   0   'False
      Tab(6).Control(0)=   "fraSetup(6)"
      Tab(6).ControlCount=   1
      TabCaption(7)   =   "Rating"
      TabPicture(7)   =   "frmSetup.frx":03CE
      Tab(7).ControlEnabled=   0   'False
      Tab(7).Control(0)=   "Frame16"
      Tab(7).ControlCount=   1
      TabCaption(8)   =   "Custom Buttons"
      TabPicture(8)   =   "frmSetup.frx":03EA
      Tab(8).ControlEnabled=   0   'False
      Tab(8).Control(0)=   "fraSetup(7)"
      Tab(8).ControlCount=   1
      TabCaption(9)   =   "Service Conv"
      TabPicture(9)   =   "frmSetup.frx":0406
      Tab(9).ControlEnabled=   0   'False
      Tab(9).Control(0)=   "fraSetup(9)"
      Tab(9).ControlCount=   1
      TabCaption(10)  =   "Alt Return Addr"
      TabPicture(10)  =   "frmSetup.frx":0422
      Tab(10).ControlEnabled=   0   'False
      Tab(10).Control(0)=   "fraSetup(10)"
      Tab(10).ControlCount=   1
      TabCaption(11)  =   "Passwords"
      TabPicture(11)  =   "frmSetup.frx":043E
      Tab(11).ControlEnabled=   0   'False
      Tab(11).Control(0)=   "fraSetup(4)"
      Tab(11).ControlCount=   1
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   4
         Left            =   -74985
         TabIndex        =   801
         Top             =   915
         Width           =   6100
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   4
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   816
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   4
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   815
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame8 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Passwords"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1515
            Left            =   240
            TabIndex        =   818
            Top             =   480
            Width           =   5655
            Begin VB.TextBox txtAdminPswd 
               Height          =   315
               Left            =   1560
               TabIndex        =   802
               Top             =   360
               Width           =   3015
            End
            Begin VB.TextBox txtLevel2Pswd 
               Height          =   315
               Left            =   1560
               TabIndex        =   803
               Top             =   900
               Width           =   3015
            End
            Begin VB.Label Label24 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Level 2:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   480
               TabIndex        =   820
               Top             =   960
               Width           =   975
            End
            Begin VB.Label Label25 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Admin:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   480
               TabIndex        =   819
               Top             =   420
               Width           =   975
            End
         End
         Begin VB.Frame Frame12 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Level 2 Password Access "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   3675
            Left            =   240
            TabIndex        =   817
            Top             =   2160
            Width           =   5655
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Alt Return Addr Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   10
               Left            =   1560
               TabIndex        =   814
               Top             =   3240
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Server Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   0
               Left            =   1560
               TabIndex        =   804
               Top             =   240
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "PeripheralsTab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   1
               Left            =   1560
               TabIndex        =   805
               Top             =   540
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Int'l Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   2
               Left            =   1560
               TabIndex        =   806
               Top             =   840
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Batch Input Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   4
               Left            =   1560
               TabIndex        =   808
               Top             =   1440
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Batch Defaults Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   5
               Left            =   1560
               TabIndex        =   809
               Top             =   1740
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Batch Output Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   6
               Left            =   1560
               TabIndex        =   810
               Top             =   2040
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Rating Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   7
               Left            =   1560
               TabIndex        =   811
               Top             =   2340
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Custom Buttons Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   8
               Left            =   1560
               TabIndex        =   812
               Top             =   2640
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Service Conv Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   9
               Left            =   1560
               TabIndex        =   813
               Top             =   2940
               Width           =   2355
            End
            Begin VB.CheckBox chkLevel2Access 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Program Locks Tab"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Index           =   3
               Left            =   1560
               TabIndex        =   807
               Top             =   1140
               Width           =   2355
            End
         End
         Begin VB.Line Line4 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
         Begin VB.Label Label43 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Password and Level 2 Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   821
            Top             =   135
            Width           =   2775
         End
      End
      Begin VB.Frame fraSetup 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   6465
         Index           =   10
         Left            =   -74985
         TabIndex        =   777
         Top             =   915
         Width           =   6100
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   11
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   792
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   11
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   791
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame23 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Address"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4035
            Left            =   240
            TabIndex        =   778
            Top             =   480
            Width           =   5655
            Begin VB.ComboBox cboAddrID 
               Height          =   315
               Left            =   1320
               TabIndex        =   780
               Top             =   660
               Width           =   3975
            End
            Begin VB.ComboBox f1585 
               Height          =   315
               Left            =   1320
               TabIndex        =   788
               Top             =   3180
               Width           =   3975
            End
            Begin VB.TextBox f1488 
               Height          =   315
               Left            =   1320
               TabIndex        =   784
               Top             =   2100
               Width           =   3975
            End
            Begin VB.CheckBox f1586 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Print Alternate Return Address"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1320
               TabIndex        =   779
               Top             =   300
               Width           =   3315
            End
            Begin VB.TextBox f1489 
               Height          =   315
               Left            =   1320
               TabIndex        =   785
               Top             =   2460
               Width           =   3975
            End
            Begin VB.TextBox f1487 
               Height          =   315
               Left            =   1320
               TabIndex        =   783
               Top             =   1740
               Width           =   3975
            End
            Begin VB.TextBox f1486 
               Height          =   315
               Left            =   1320
               TabIndex        =   782
               Top             =   1380
               Width           =   3975
            End
            Begin VB.TextBox f1485 
               Height          =   315
               Left            =   1320
               TabIndex        =   781
               Top             =   1020
               Width           =   3975
            End
            Begin VB.TextBox f1492 
               Height          =   315
               Left            =   1320
               TabIndex        =   790
               Top             =   3540
               Width           =   2295
            End
            Begin VB.TextBox f1491 
               Height          =   315
               Left            =   4200
               TabIndex        =   787
               Top             =   2820
               Width           =   1095
            End
            Begin VB.ComboBox f1490 
               Height          =   315
               Left            =   1320
               TabIndex        =   786
               Top             =   2820
               Width           =   2295
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Address ID:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   235
               Left            =   120
               TabIndex        =   842
               Top             =   720
               Width           =   1095
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Country:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   233
               Left            =   240
               TabIndex        =   840
               Top             =   3180
               Width           =   975
            End
            Begin VB.Label Label6 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Address 2:"
               Height          =   255
               Index           =   3
               Left            =   330
               TabIndex        =   799
               Top             =   2160
               Width           =   855
            End
            Begin VB.Label Label52 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Contact:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   360
               TabIndex        =   798
               Top             =   1080
               Width           =   855
            End
            Begin VB.Label Label51 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Company:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   240
               TabIndex        =   797
               Top             =   1440
               Width           =   975
            End
            Begin VB.Label Label6 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Address 1:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   2
               Left            =   180
               TabIndex        =   796
               Top             =   1800
               Width           =   1035
            End
            Begin VB.Label Label50 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "City:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   720
               TabIndex        =   795
               Top             =   2520
               Width           =   495
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Phone:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   228
               Left            =   600
               TabIndex        =   794
               Top             =   3600
               Width           =   615
            End
            Begin VB.Label Label49 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Zip:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   3660
               TabIndex        =   793
               Top             =   2580
               Width           =   495
            End
            Begin VB.Label Label48 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "State:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   600
               TabIndex        =   789
               Top             =   2880
               Width           =   615
            End
         End
         Begin VB.Label Label54 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Alternate Return Address"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   800
            Top             =   135
            Width           =   2775
         End
         Begin VB.Line Line18 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   5
         Left            =   -74985
         TabIndex        =   736
         Top             =   915
         Width           =   6100
         Begin VB.Frame Frame14 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Path for Input/Output Files"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1575
            Left            =   240
            TabIndex        =   772
            Top             =   480
            Width           =   5655
            Begin VB.CommandButton cmdDeleteBatchProfile 
               Appearance      =   0  'Flat
               BackColor       =   &H00E0E0E0&
               Caption         =   "Delete"
               Height          =   315
               Left            =   4140
               MaskColor       =   &H0080C0FF&
               Style           =   1  'Graphical
               TabIndex        =   734
               Top             =   720
               UseMaskColor    =   -1  'True
               Width           =   1215
            End
            Begin VB.CheckBox chkAddInputToOutput 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Include Input Fields in Ouput File"
               Height          =   315
               Left            =   1260
               TabIndex        =   735
               Top             =   1140
               Width           =   3255
            End
            Begin VB.ComboBox cboProfileName 
               Height          =   315
               Left            =   1260
               TabIndex        =   733
               Top             =   720
               Width           =   2775
            End
            Begin VB.TextBox txtFilesPath 
               Height          =   315
               Left            =   1260
               TabIndex        =   732
               Top             =   300
               Width           =   4095
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Profile Name:"
               Height          =   255
               Index           =   187
               Left            =   180
               TabIndex        =   774
               Top             =   780
               Width           =   960
            End
            Begin VB.Label Label39 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Files Path:"
               Height          =   255
               Left            =   420
               TabIndex        =   773
               Top             =   360
               Width           =   735
            End
         End
         Begin VB.Frame Frame11 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Enter Field Numbers and Default Values"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   3615
            Left            =   240
            TabIndex        =   739
            Top             =   2220
            Width           =   5655
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   13
               Left            =   4380
               TabIndex        =   767
               Top             =   2760
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   13
               Left            =   3420
               TabIndex        =   766
               Top             =   2760
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   12
               Left            =   4380
               TabIndex        =   765
               Top             =   2400
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   12
               Left            =   3420
               TabIndex        =   764
               Top             =   2400
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   11
               Left            =   4380
               TabIndex        =   763
               Top             =   2040
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   11
               Left            =   3420
               TabIndex        =   762
               Top             =   2040
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   10
               Left            =   4380
               TabIndex        =   761
               Top             =   1680
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   10
               Left            =   3420
               TabIndex        =   760
               Top             =   1680
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   9
               Left            =   4380
               TabIndex        =   759
               Top             =   1320
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   9
               Left            =   3420
               TabIndex        =   758
               Top             =   1320
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   8
               Left            =   4380
               TabIndex        =   757
               Top             =   960
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   8
               Left            =   3420
               TabIndex        =   756
               Top             =   960
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   7
               Left            =   4380
               TabIndex        =   755
               Top             =   600
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   7
               Left            =   3420
               TabIndex        =   754
               Top             =   600
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   6
               Left            =   1440
               TabIndex        =   753
               Top             =   2760
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   6
               Left            =   480
               TabIndex        =   752
               Top             =   2760
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   5
               Left            =   1440
               TabIndex        =   751
               Top             =   2400
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   5
               Left            =   480
               TabIndex        =   750
               Top             =   2400
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   4
               Left            =   1440
               TabIndex        =   749
               Top             =   2040
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   4
               Left            =   480
               TabIndex        =   748
               Top             =   2040
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   3
               Left            =   1440
               TabIndex        =   747
               Top             =   1680
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   3
               Left            =   480
               TabIndex        =   746
               Top             =   1680
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   2
               Left            =   1440
               TabIndex        =   745
               Top             =   1320
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   2
               Left            =   480
               TabIndex        =   744
               Top             =   1320
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   1
               Left            =   1440
               TabIndex        =   743
               Top             =   960
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   1
               Left            =   480
               TabIndex        =   742
               Top             =   960
               Width           =   735
            End
            Begin VB.TextBox txtValue 
               Height          =   315
               Index           =   0
               Left            =   1440
               TabIndex        =   741
               Top             =   600
               Width           =   735
            End
            Begin VB.TextBox txtFieldNum 
               Height          =   315
               Index           =   0
               Left            =   480
               TabIndex        =   740
               Top             =   600
               Width           =   735
            End
            Begin VB.Label Label6 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Value:"
               Height          =   255
               Index           =   10
               Left            =   4380
               TabIndex        =   771
               Top             =   360
               Width           =   735
            End
            Begin VB.Label Label2 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Field #:"
               Height          =   255
               Index           =   10
               Left            =   3420
               TabIndex        =   770
               Top             =   360
               Width           =   735
            End
            Begin VB.Label Label6 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Value:"
               Height          =   255
               Index           =   0
               Left            =   1500
               TabIndex        =   769
               Top             =   360
               Width           =   735
            End
            Begin VB.Label Label2 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Field #:"
               Height          =   255
               Index           =   0
               Left            =   480
               TabIndex        =   768
               Top             =   360
               Width           =   735
            End
            Begin VB.Line Line8 
               BorderColor     =   &H000080FF&
               BorderStyle     =   6  'Inside Solid
               BorderWidth     =   2
               X1              =   2820
               X2              =   2820
               Y1              =   600
               Y2              =   3060
            End
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   5
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   738
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   5
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   737
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Label Label3 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Batch Default Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   775
            Top             =   135
            Width           =   2775
         End
         Begin VB.Line Line6 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   1
         Left            =   -74985
         TabIndex        =   536
         Top             =   915
         Width           =   6100
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   0
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   543
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   0
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   542
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame10 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Data Format In"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   735
            Left            =   240
            TabIndex        =   537
            Top             =   480
            Width           =   5655
            Begin VB.ComboBox cboQualIn 
               Height          =   315
               Left            =   3960
               TabIndex        =   539
               Top             =   240
               Width           =   975
            End
            Begin VB.ComboBox cboDelimIn 
               Height          =   315
               Left            =   1560
               TabIndex        =   538
               Top             =   240
               Width           =   975
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Text Qualifier:"
               Height          =   255
               Index           =   31
               Left            =   2880
               TabIndex        =   541
               Top             =   300
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Delimiter:"
               Height          =   255
               Index           =   32
               Left            =   720
               TabIndex        =   540
               Top             =   300
               Width           =   780
            End
         End
         Begin VB.Frame fraInputFieldNums 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Enter Input Field Numbers"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   2
            Left            =   240
            TabIndex        =   605
            Top             =   1320
            Width           =   5655
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   30
               Left            =   1080
               TabIndex        =   635
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   31
               Left            =   1080
               TabIndex        =   634
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   32
               Left            =   1080
               TabIndex        =   633
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   33
               Left            =   1080
               TabIndex        =   632
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   34
               Left            =   1080
               TabIndex        =   631
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   35
               Left            =   1080
               TabIndex        =   630
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   36
               Left            =   1080
               TabIndex        =   629
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   37
               Left            =   1080
               TabIndex        =   628
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   38
               Left            =   1080
               TabIndex        =   627
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   39
               Left            =   1080
               TabIndex        =   626
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   40
               Left            =   2880
               TabIndex        =   625
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   41
               Left            =   2880
               TabIndex        =   624
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   42
               Left            =   2880
               TabIndex        =   623
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   43
               Left            =   2880
               TabIndex        =   622
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   44
               Left            =   2880
               TabIndex        =   621
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   45
               Left            =   2880
               TabIndex        =   620
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   46
               Left            =   2880
               TabIndex        =   619
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   47
               Left            =   2880
               TabIndex        =   618
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   48
               Left            =   2880
               TabIndex        =   617
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   49
               Left            =   2880
               TabIndex        =   616
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   50
               Left            =   4680
               TabIndex        =   615
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   51
               Left            =   4680
               TabIndex        =   614
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   52
               Left            =   4680
               TabIndex        =   613
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   53
               Left            =   4680
               TabIndex        =   612
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   54
               Left            =   4680
               TabIndex        =   611
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   55
               Left            =   4680
               TabIndex        =   610
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   56
               Left            =   4680
               TabIndex        =   609
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   57
               Left            =   4680
               TabIndex        =   608
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   58
               Left            =   4680
               TabIndex        =   607
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   59
               Left            =   4680
               TabIndex        =   606
               Top             =   3600
               Width           =   735
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 60:"
               Height          =   255
               Index           =   66
               Left            =   3720
               TabIndex        =   665
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 59:"
               Height          =   255
               Index           =   67
               Left            =   3720
               TabIndex        =   664
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 58:"
               Height          =   255
               Index           =   68
               Left            =   3720
               TabIndex        =   663
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 57:"
               Height          =   255
               Index           =   69
               Left            =   3720
               TabIndex        =   662
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 56:"
               Height          =   255
               Index           =   70
               Left            =   3720
               TabIndex        =   661
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 55:"
               Height          =   255
               Index           =   71
               Left            =   3720
               TabIndex        =   660
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 54:"
               Height          =   255
               Index           =   72
               Left            =   3720
               TabIndex        =   659
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 53:"
               Height          =   255
               Index           =   73
               Left            =   3720
               TabIndex        =   658
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 52:"
               Height          =   255
               Index           =   74
               Left            =   3720
               TabIndex        =   657
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 51:"
               Height          =   255
               Index           =   75
               Left            =   3720
               TabIndex        =   656
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 50:"
               Height          =   255
               Index           =   76
               Left            =   1800
               TabIndex        =   655
               Top             =   3660
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 49:"
               Height          =   255
               Index           =   77
               Left            =   1920
               TabIndex        =   654
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 48:"
               Height          =   255
               Index           =   78
               Left            =   1920
               TabIndex        =   653
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 47:"
               Height          =   255
               Index           =   79
               Left            =   1920
               TabIndex        =   652
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 46:"
               Height          =   255
               Index           =   80
               Left            =   1920
               TabIndex        =   651
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 45:"
               Height          =   255
               Index           =   81
               Left            =   1920
               TabIndex        =   650
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 44:"
               Height          =   255
               Index           =   82
               Left            =   1920
               TabIndex        =   649
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 43:"
               Height          =   255
               Index           =   83
               Left            =   1920
               TabIndex        =   648
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 42:"
               Height          =   255
               Index           =   84
               Left            =   1920
               TabIndex        =   647
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 41:"
               Height          =   255
               Index           =   85
               Left            =   1920
               TabIndex        =   646
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 40:"
               Height          =   255
               Index           =   86
               Left            =   120
               TabIndex        =   645
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 39:"
               Height          =   255
               Index           =   87
               Left            =   120
               TabIndex        =   644
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 38:"
               Height          =   255
               Index           =   88
               Left            =   120
               TabIndex        =   643
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 37:"
               Height          =   255
               Index           =   89
               Left            =   120
               TabIndex        =   642
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 36:"
               Height          =   255
               Index           =   90
               Left            =   120
               TabIndex        =   641
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 35:"
               Height          =   255
               Index           =   91
               Left            =   120
               TabIndex        =   640
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 34:"
               Height          =   255
               Index           =   92
               Left            =   120
               TabIndex        =   639
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 33:"
               Height          =   255
               Index           =   93
               Left            =   120
               TabIndex        =   638
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 32:"
               Height          =   255
               Index           =   94
               Left            =   120
               TabIndex        =   637
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 31:"
               Height          =   255
               Index           =   95
               Left            =   120
               TabIndex        =   636
               Top             =   420
               Width           =   900
            End
         End
         Begin VB.Frame fraInputFieldNums 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Enter Input Field Numbers"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   1
            Left            =   240
            TabIndex        =   544
            Top             =   1320
            Width           =   5655
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   29
               Left            =   4680
               TabIndex        =   574
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   28
               Left            =   4680
               TabIndex        =   573
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   27
               Left            =   4680
               TabIndex        =   572
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   26
               Left            =   4680
               TabIndex        =   571
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   25
               Left            =   4680
               TabIndex        =   570
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   24
               Left            =   4680
               TabIndex        =   569
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   23
               Left            =   4680
               TabIndex        =   568
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   22
               Left            =   4680
               TabIndex        =   567
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   21
               Left            =   4680
               TabIndex        =   566
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   20
               Left            =   4680
               TabIndex        =   565
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   19
               Left            =   2880
               TabIndex        =   564
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   18
               Left            =   2880
               TabIndex        =   563
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   17
               Left            =   2880
               TabIndex        =   562
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   16
               Left            =   2880
               TabIndex        =   561
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   15
               Left            =   2880
               TabIndex        =   560
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   14
               Left            =   2880
               TabIndex        =   559
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   13
               Left            =   2880
               TabIndex        =   558
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   12
               Left            =   2880
               TabIndex        =   557
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   11
               Left            =   2880
               TabIndex        =   556
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   10
               Left            =   2880
               TabIndex        =   555
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   9
               Left            =   1080
               TabIndex        =   554
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   8
               Left            =   1080
               TabIndex        =   553
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   7
               Left            =   1080
               TabIndex        =   552
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   6
               Left            =   1080
               TabIndex        =   551
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   5
               Left            =   1080
               TabIndex        =   550
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   4
               Left            =   1080
               TabIndex        =   549
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   3
               Left            =   1080
               TabIndex        =   548
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   2
               Left            =   1080
               TabIndex        =   547
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   1
               Left            =   1080
               TabIndex        =   546
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   0
               Left            =   1080
               TabIndex        =   545
               Top             =   360
               Width           =   735
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 30:"
               Height          =   255
               Index           =   30
               Left            =   3720
               TabIndex        =   604
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 29:"
               Height          =   255
               Index           =   29
               Left            =   3720
               TabIndex        =   603
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 28:"
               Height          =   255
               Index           =   28
               Left            =   3720
               TabIndex        =   602
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 27:"
               Height          =   255
               Index           =   27
               Left            =   3720
               TabIndex        =   601
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 26:"
               Height          =   255
               Index           =   26
               Left            =   3720
               TabIndex        =   600
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 25:"
               Height          =   255
               Index           =   25
               Left            =   3720
               TabIndex        =   599
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 24:"
               Height          =   255
               Index           =   24
               Left            =   3720
               TabIndex        =   598
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 23:"
               Height          =   255
               Index           =   23
               Left            =   3720
               TabIndex        =   597
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 22:"
               Height          =   255
               Index           =   22
               Left            =   3720
               TabIndex        =   596
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 21:"
               Height          =   255
               Index           =   21
               Left            =   3720
               TabIndex        =   595
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 20:"
               Height          =   255
               Index           =   20
               Left            =   1800
               TabIndex        =   594
               Top             =   3660
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 19:"
               Height          =   255
               Index           =   19
               Left            =   1920
               TabIndex        =   593
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 18:"
               Height          =   255
               Index           =   18
               Left            =   1920
               TabIndex        =   592
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 17:"
               Height          =   255
               Index           =   17
               Left            =   1920
               TabIndex        =   591
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 16:"
               Height          =   255
               Index           =   16
               Left            =   1920
               TabIndex        =   590
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 15:"
               Height          =   255
               Index           =   15
               Left            =   1920
               TabIndex        =   589
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 14:"
               Height          =   255
               Index           =   14
               Left            =   1920
               TabIndex        =   588
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 13:"
               Height          =   255
               Index           =   13
               Left            =   1920
               TabIndex        =   587
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 12:"
               Height          =   255
               Index           =   12
               Left            =   1920
               TabIndex        =   586
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 11:"
               Height          =   255
               Index           =   11
               Left            =   1920
               TabIndex        =   585
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 10:"
               Height          =   255
               Index           =   10
               Left            =   120
               TabIndex        =   584
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 9:"
               Height          =   255
               Index           =   9
               Left            =   240
               TabIndex        =   583
               Top             =   3300
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 8:"
               Height          =   255
               Index           =   8
               Left            =   240
               TabIndex        =   582
               Top             =   2940
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 7:"
               Height          =   255
               Index           =   7
               Left            =   240
               TabIndex        =   581
               Top             =   2580
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 6:"
               Height          =   255
               Index           =   6
               Left            =   240
               TabIndex        =   580
               Top             =   2220
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 5:"
               Height          =   255
               Index           =   5
               Left            =   240
               TabIndex        =   579
               Top             =   1860
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 4:"
               Height          =   255
               Index           =   4
               Left            =   240
               TabIndex        =   578
               Top             =   1500
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 3:"
               Height          =   255
               Index           =   3
               Left            =   240
               TabIndex        =   577
               Top             =   1140
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 2:"
               Height          =   255
               Index           =   2
               Left            =   240
               TabIndex        =   576
               Top             =   780
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 1:"
               Height          =   255
               Index           =   0
               Left            =   240
               TabIndex        =   575
               Top             =   420
               Width           =   780
            End
         End
         Begin VB.Frame fraInputFieldNums 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Enter Input Field Numbers"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   3
            Left            =   240
            TabIndex        =   666
            Top             =   1320
            Width           =   5655
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   60
               Left            =   1080
               TabIndex        =   696
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   61
               Left            =   1080
               TabIndex        =   695
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   62
               Left            =   1080
               TabIndex        =   694
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   63
               Left            =   1080
               TabIndex        =   693
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   64
               Left            =   1080
               TabIndex        =   692
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   65
               Left            =   1080
               TabIndex        =   691
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   66
               Left            =   1080
               TabIndex        =   690
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   67
               Left            =   1080
               TabIndex        =   689
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   68
               Left            =   1080
               TabIndex        =   688
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   69
               Left            =   1080
               TabIndex        =   687
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   70
               Left            =   2880
               TabIndex        =   686
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   71
               Left            =   2880
               TabIndex        =   685
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   72
               Left            =   2880
               TabIndex        =   684
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   73
               Left            =   2880
               TabIndex        =   683
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   74
               Left            =   2880
               TabIndex        =   682
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   75
               Left            =   2880
               TabIndex        =   681
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   76
               Left            =   2880
               TabIndex        =   680
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   77
               Left            =   2880
               TabIndex        =   679
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   78
               Left            =   2880
               TabIndex        =   678
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   79
               Left            =   2880
               TabIndex        =   677
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   80
               Left            =   4680
               TabIndex        =   676
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   81
               Left            =   4680
               TabIndex        =   675
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   82
               Left            =   4680
               TabIndex        =   674
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   83
               Left            =   4680
               TabIndex        =   673
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   84
               Left            =   4680
               TabIndex        =   672
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   85
               Left            =   4680
               TabIndex        =   671
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   86
               Left            =   4680
               TabIndex        =   670
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   87
               Left            =   4680
               TabIndex        =   669
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   88
               Left            =   4680
               TabIndex        =   668
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtInputFld 
               Height          =   315
               Index           =   89
               Left            =   4680
               TabIndex        =   667
               Top             =   3600
               Width           =   735
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 90:"
               Height          =   255
               Index           =   96
               Left            =   3720
               TabIndex        =   726
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 89:"
               Height          =   255
               Index           =   97
               Left            =   3720
               TabIndex        =   725
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 88:"
               Height          =   255
               Index           =   98
               Left            =   3720
               TabIndex        =   724
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 87:"
               Height          =   255
               Index           =   99
               Left            =   3720
               TabIndex        =   723
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 86:"
               Height          =   255
               Index           =   100
               Left            =   3720
               TabIndex        =   722
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 85:"
               Height          =   255
               Index           =   101
               Left            =   3720
               TabIndex        =   721
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 84:"
               Height          =   255
               Index           =   102
               Left            =   3720
               TabIndex        =   720
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 83:"
               Height          =   255
               Index           =   103
               Left            =   3720
               TabIndex        =   719
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 82:"
               Height          =   255
               Index           =   104
               Left            =   3720
               TabIndex        =   718
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 81:"
               Height          =   255
               Index           =   105
               Left            =   3720
               TabIndex        =   717
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 80:"
               Height          =   255
               Index           =   106
               Left            =   1800
               TabIndex        =   716
               Top             =   3660
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 79:"
               Height          =   255
               Index           =   107
               Left            =   1920
               TabIndex        =   715
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 78:"
               Height          =   255
               Index           =   108
               Left            =   1920
               TabIndex        =   714
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 77:"
               Height          =   255
               Index           =   109
               Left            =   1920
               TabIndex        =   713
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 76:"
               Height          =   255
               Index           =   110
               Left            =   1920
               TabIndex        =   712
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 75:"
               Height          =   255
               Index           =   111
               Left            =   1920
               TabIndex        =   711
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 74:"
               Height          =   255
               Index           =   112
               Left            =   1920
               TabIndex        =   710
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position73:"
               Height          =   255
               Index           =   113
               Left            =   1920
               TabIndex        =   709
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 72:"
               Height          =   255
               Index           =   114
               Left            =   1920
               TabIndex        =   708
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 71:"
               Height          =   255
               Index           =   115
               Left            =   1920
               TabIndex        =   707
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 70:"
               Height          =   255
               Index           =   116
               Left            =   120
               TabIndex        =   706
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 69:"
               Height          =   255
               Index           =   117
               Left            =   120
               TabIndex        =   705
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 68:"
               Height          =   255
               Index           =   118
               Left            =   120
               TabIndex        =   704
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 67:"
               Height          =   255
               Index           =   119
               Left            =   120
               TabIndex        =   703
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 66:"
               Height          =   255
               Index           =   120
               Left            =   120
               TabIndex        =   702
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 65:"
               Height          =   255
               Index           =   121
               Left            =   120
               TabIndex        =   701
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 64:"
               Height          =   255
               Index           =   122
               Left            =   120
               TabIndex        =   700
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 63:"
               Height          =   255
               Index           =   123
               Left            =   120
               TabIndex        =   699
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 62:"
               Height          =   255
               Index           =   124
               Left            =   120
               TabIndex        =   698
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 61:"
               Height          =   255
               Index           =   125
               Left            =   120
               TabIndex        =   697
               Top             =   420
               Width           =   900
            End
         End
         Begin VB.Label Label26 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Batch Input Fields Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   731
            Top             =   135
            Width           =   2775
         End
         Begin VB.Line Line5 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "Page:"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Index           =   65
            Left            =   2460
            TabIndex        =   730
            Top             =   5520
            Width           =   495
         End
         Begin VB.Label lblInputPage 
            BackColor       =   &H00FFFFFF&
            Caption         =   "1"
            Height          =   255
            Index           =   1
            Left            =   3120
            TabIndex        =   729
            Top             =   5520
            Width           =   135
         End
         Begin VB.Label lblInputPage 
            BackColor       =   &H00FFFFFF&
            Caption         =   "2"
            Height          =   255
            Index           =   2
            Left            =   3360
            TabIndex        =   728
            Top             =   5520
            Width           =   135
         End
         Begin VB.Label lblInputPage 
            BackColor       =   &H00FFFFFF&
            Caption         =   "3"
            Height          =   255
            Index           =   3
            Left            =   3600
            TabIndex        =   727
            Top             =   5520
            Width           =   135
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   8
         Left            =   -74985
         TabIndex        =   444
         Top             =   915
         Width           =   6100
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   9
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   109
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   9
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   110
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame9 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Disable Tabs and Buttons:"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1035
            Left            =   240
            TabIndex        =   445
            Top             =   480
            Width           =   5655
            Begin VB.ComboBox cboTabs 
               Height          =   315
               ItemData        =   "frmSetup.frx":045A
               Left            =   1260
               List            =   "frmSetup.frx":0470
               TabIndex        =   39
               Top             =   240
               Width           =   2235
            End
            Begin VB.ComboBox cboButtons 
               Height          =   315
               ItemData        =   "frmSetup.frx":04BC
               Left            =   1260
               List            =   "frmSetup.frx":04D5
               TabIndex        =   41
               Top             =   600
               Width           =   2235
            End
            Begin VB.CheckBox chkDisableTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   4
               Left            =   3780
               TabIndex        =   40
               Top             =   300
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   5
               Left            =   3780
               TabIndex        =   43
               Top             =   300
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   0
               Left            =   3780
               TabIndex        =   44
               Top             =   300
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   1
               Left            =   3780
               TabIndex        =   45
               Top             =   300
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   3
               Left            =   3780
               TabIndex        =   46
               Top             =   300
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   2
               Left            =   3780
               TabIndex        =   47
               Top             =   300
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableButton 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   0
               Left            =   3780
               TabIndex        =   42
               Top             =   660
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableButton 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   1
               Left            =   3780
               TabIndex        =   48
               Top             =   660
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableButton 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   2
               Left            =   3780
               TabIndex        =   49
               Top             =   660
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableButton 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   3
               Left            =   3780
               TabIndex        =   50
               Top             =   660
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableButton 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   4
               Left            =   3780
               TabIndex        =   51
               Top             =   660
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableButton 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   5
               Left            =   3780
               TabIndex        =   52
               Top             =   660
               Width           =   1035
            End
            Begin VB.CheckBox chkDisableButton 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Disable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   6
               Left            =   3780
               TabIndex        =   53
               Top             =   660
               Width           =   1035
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Tabs:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   195
               Index           =   226
               Left            =   420
               TabIndex        =   447
               Top             =   300
               Width           =   795
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Buttons:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   195
               Index           =   227
               Left            =   420
               TabIndex        =   446
               Top             =   660
               Width           =   795
            End
         End
         Begin VB.Frame fraTabs 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Select Ship Tab Fields to Lock"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4155
            Index           =   0
            Left            =   240
            TabIndex        =   448
            Top             =   1680
            Width           =   5655
            Begin VB.Frame fraTabShip 
               BackColor       =   &H00FFFFFF&
               BorderStyle     =   0  'None
               Caption         =   "Frame12"
               Height          =   3555
               Index           =   1
               Left            =   60
               TabIndex        =   455
               Top             =   180
               Width           =   5535
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Order ID"
                  Height          =   255
                  Index           =   0
                  Left            =   180
                  TabIndex        =   54
                  Top             =   420
                  Width           =   1035
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Country"
                  Height          =   255
                  Index           =   1
                  Left            =   180
                  TabIndex        =   56
                  Top             =   720
                  Width           =   915
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Contact"
                  Height          =   255
                  Index           =   2
                  Left            =   180
                  TabIndex        =   58
                  Top             =   1020
                  Width           =   915
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Company"
                  Height          =   255
                  Index           =   3
                  Left            =   180
                  TabIndex        =   60
                  Top             =   1320
                  Width           =   975
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Address 1"
                  Height          =   255
                  Index           =   4
                  Left            =   180
                  TabIndex        =   62
                  Top             =   1620
                  Width           =   1275
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Address 2"
                  Height          =   255
                  Index           =   5
                  Left            =   180
                  TabIndex        =   64
                  Top             =   1920
                  Width           =   1275
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "City"
                  Height          =   255
                  Index           =   6
                  Left            =   1440
                  TabIndex        =   55
                  Top             =   420
                  Width           =   1275
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "State"
                  Height          =   255
                  Index           =   7
                  Left            =   1440
                  TabIndex        =   57
                  Top             =   720
                  Width           =   1275
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Zip"
                  Height          =   255
                  Index           =   8
                  Left            =   1440
                  TabIndex        =   59
                  Top             =   1020
                  Width           =   1275
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Telephone"
                  Height          =   255
                  Index           =   9
                  Left            =   1440
                  TabIndex        =   61
                  Top             =   1320
                  Width           =   1275
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Residential"
                  Height          =   255
                  Index           =   10
                  Left            =   1440
                  TabIndex        =   63
                  Top             =   1620
                  Width           =   1275
               End
               Begin VB.CheckBox chkSelectAllShip 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Select All"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   1
                  Left            =   900
                  TabIndex        =   69
                  Top             =   3180
                  Width           =   1695
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Reference"
                  Height          =   255
                  Index           =   11
                  Left            =   180
                  TabIndex        =   65
                  Top             =   2460
                  Width           =   1095
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "P.O. #"
                  Height          =   255
                  Index           =   12
                  Left            =   180
                  TabIndex        =   67
                  Top             =   2760
                  Width           =   855
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Department"
                  Height          =   255
                  Index           =   14
                  Left            =   1440
                  TabIndex        =   68
                  Top             =   2760
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Invoice #"
                  Height          =   255
                  Index           =   13
                  Left            =   1440
                  TabIndex        =   66
                  Top             =   2460
                  Width           =   1035
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Location"
                  Height          =   255
                  Index           =   26
                  Left            =   2940
                  TabIndex        =   81
                  Top             =   2460
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "# of Pkgs"
                  Height          =   255
                  Index           =   15
                  Left            =   2940
                  TabIndex        =   70
                  Top             =   420
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Bill-To"
                  Height          =   255
                  Index           =   23
                  Left            =   4200
                  TabIndex        =   75
                  Top             =   1020
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Dec Value"
                  Height          =   255
                  Index           =   22
                  Left            =   4200
                  TabIndex        =   73
                  Top             =   720
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Ship Date"
                  Height          =   255
                  Index           =   21
                  Left            =   4200
                  TabIndex        =   71
                  Top             =   420
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Dimensions"
                  Height          =   255
                  Index           =   20
                  Left            =   2940
                  TabIndex        =   80
                  Top             =   1920
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Packaging"
                  Height          =   255
                  Index           =   19
                  Left            =   2940
                  TabIndex        =   78
                  Top             =   1620
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "LBS/KGS"
                  Height          =   255
                  Index           =   17
                  Left            =   2940
                  TabIndex        =   74
                  Top             =   1020
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Service"
                  Height          =   255
                  Index           =   18
                  Left            =   2940
                  TabIndex        =   76
                  Top             =   1320
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Weight"
                  Height          =   255
                  Index           =   16
                  Left            =   2940
                  TabIndex        =   72
                  Top             =   720
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Multi-Piece"
                  Height          =   255
                  Index           =   25
                  Left            =   4200
                  TabIndex        =   79
                  Top             =   1620
                  Width           =   1155
               End
               Begin VB.CheckBox chkShipTab 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Bill Acct #"
                  Height          =   255
                  Index           =   24
                  Left            =   4200
                  TabIndex        =   77
                  Top             =   1320
                  Width           =   1155
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Recipient Information"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   199
                  Left            =   420
                  TabIndex        =   459
                  Top             =   180
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Reference Information"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   200
                  Left            =   420
                  TabIndex        =   458
                  Top             =   2220
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Shipper Account"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   208
                  Left            =   3120
                  TabIndex        =   457
                  Top             =   2220
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Package Details"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   209
                  Left            =   3180
                  TabIndex        =   456
                  Top             =   180
                  Width           =   1935
               End
               Begin VB.Line Line14 
                  BorderColor     =   &H000080FF&
                  BorderWidth     =   2
                  X1              =   2760
                  X2              =   2760
                  Y1              =   420
                  Y2              =   3420
               End
            End
            Begin VB.Frame fraTabShip 
               BackColor       =   &H00FFFFFF&
               BorderStyle     =   0  'None
               Caption         =   "2"
               Height          =   3615
               Index           =   3
               Left            =   60
               TabIndex        =   824
               Top             =   180
               Width           =   5535
               Begin VB.CheckBox chkSelectAllShip 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Select All"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   3
                  Left            =   900
                  TabIndex        =   835
                  Top             =   3180
                  Width           =   1575
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Non-Std Pkg"
                  Height          =   255
                  Index           =   33
                  Left            =   2940
                  TabIndex        =   834
                  ToolTipText     =   "Non-Standard Packaging"
                  Top             =   960
                  Width           =   1215
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "COD"
                  Height          =   255
                  Index           =   34
                  Left            =   4200
                  TabIndex        =   833
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Auto POD"
                  Height          =   255
                  Index           =   32
                  Left            =   2940
                  TabIndex        =   832
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Dry Ice"
                  Height          =   255
                  Index           =   29
                  Left            =   180
                  TabIndex        =   831
                  Top             =   2100
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "HAL"
                  Height          =   255
                  Index           =   30
                  Left            =   180
                  TabIndex        =   830
                  ToolTipText     =   "Hold at Location"
                  Top             =   2400
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Broker Sel"
                  Height          =   255
                  Index           =   31
                  Left            =   1440
                  TabIndex        =   829
                  ToolTipText     =   "Broker Select"
                  Top             =   2100
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "HAL"
                  Height          =   255
                  Index           =   27
                  Left            =   1440
                  TabIndex        =   828
                  ToolTipText     =   "Hold at Location"
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Sat Del"
                  Height          =   255
                  Index           =   28
                  Left            =   1440
                  TabIndex        =   827
                  ToolTipText     =   "Saturday Delivery"
                  Top             =   960
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Sig Release"
                  Height          =   255
                  Index           =   25
                  Left            =   180
                  TabIndex        =   826
                  ToolTipText     =   "Deliver Without Signature"
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Dry Ice"
                  Height          =   255
                  Index           =   26
                  Left            =   180
                  TabIndex        =   825
                  Top             =   960
                  Width           =   1155
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Special Services"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   234
                  Left            =   1800
                  TabIndex        =   839
                  Top             =   120
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "CA Ground"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   232
                  Left            =   3180
                  TabIndex        =   838
                  Top             =   420
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Express CA Export"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   231
                  Left            =   240
                  TabIndex        =   837
                  Top             =   1860
                  Width           =   2295
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Express Intra CA"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   230
                  Left            =   420
                  TabIndex        =   836
                  Top             =   420
                  Width           =   1935
               End
               Begin VB.Line Line19 
                  BorderColor     =   &H000080FF&
                  BorderWidth     =   2
                  X1              =   2760
                  X2              =   2760
                  Y1              =   420
                  Y2              =   3420
               End
            End
            Begin VB.Frame fraTabShip 
               BackColor       =   &H00FFFFFF&
               BorderStyle     =   0  'None
               Caption         =   "2"
               Height          =   3615
               Index           =   2
               Left            =   60
               TabIndex        =   449
               Top             =   180
               Width           =   5535
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Sig Req"
                  Height          =   255
                  Index           =   6
                  Left            =   1440
                  TabIndex        =   841
                  ToolTipText     =   "Return Labels"
                  Top             =   1260
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Return Lbls"
                  Height          =   255
                  Index           =   7
                  Left            =   1440
                  TabIndex        =   89
                  ToolTipText     =   "Return Labels"
                  Top             =   1560
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Dry Ice"
                  Height          =   255
                  Index           =   3
                  Left            =   180
                  TabIndex        =   90
                  Top             =   1560
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Sig Release"
                  Height          =   255
                  Index           =   2
                  Left            =   180
                  TabIndex        =   88
                  ToolTipText     =   "Deliver Without Signature"
                  Top             =   1260
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "COD"
                  Height          =   255
                  Index           =   1
                  Left            =   180
                  TabIndex        =   86
                  Top             =   960
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Alcohol"
                  Height          =   255
                  Index           =   0
                  Left            =   180
                  TabIndex        =   84
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Sat Del"
                  Height          =   255
                  Index           =   5
                  Left            =   1440
                  TabIndex        =   87
                  ToolTipText     =   "Saturday Delivery"
                  Top             =   960
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "HAL"
                  Height          =   255
                  Index           =   4
                  Left            =   1440
                  TabIndex        =   85
                  ToolTipText     =   "Hold at Location"
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Return Lbls"
                  Height          =   255
                  Index           =   24
                  Left            =   4200
                  TabIndex        =   108
                  ToolTipText     =   "Return Labels"
                  Top             =   3000
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Sig Svc"
                  Height          =   255
                  Index           =   20
                  Left            =   2940
                  TabIndex        =   107
                  ToolTipText     =   "Signature Service"
                  Top             =   3000
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Broker Sel"
                  Height          =   255
                  Index           =   11
                  Left            =   1440
                  TabIndex        =   94
                  ToolTipText     =   "Broker Select"
                  Top             =   2400
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "HAL"
                  Height          =   255
                  Index           =   10
                  Left            =   1440
                  TabIndex        =   92
                  ToolTipText     =   "Hold at Location"
                  Top             =   2100
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Dry Ice"
                  Height          =   255
                  Index           =   9
                  Left            =   180
                  TabIndex        =   93
                  Top             =   2400
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Alcohol"
                  Height          =   255
                  Index           =   8
                  Left            =   180
                  TabIndex        =   91
                  Top             =   2100
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Appt Del"
                  Height          =   255
                  Index           =   23
                  Left            =   4200
                  TabIndex        =   106
                  ToolTipText     =   "Appointment Delivery"
                  Top             =   2700
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Auto POD"
                  Height          =   255
                  Index           =   12
                  Left            =   2940
                  TabIndex        =   96
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "COD"
                  Height          =   255
                  Index           =   15
                  Left            =   4200
                  TabIndex        =   97
                  Top             =   660
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "AOD"
                  Height          =   255
                  Index           =   13
                  Left            =   2940
                  TabIndex        =   98
                  ToolTipText     =   "Acknowledgement of Delivery"
                  Top             =   960
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Return Lbls"
                  Height          =   255
                  Index           =   16
                  Left            =   4200
                  TabIndex        =   99
                  ToolTipText     =   "Return Labels"
                  Top             =   960
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Non-Std Pkg"
                  Height          =   255
                  Index           =   14
                  Left            =   2940
                  TabIndex        =   100
                  ToolTipText     =   "Non-Standard Packaging"
                  Top             =   1260
                  Width           =   1215
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Auto POD"
                  Height          =   255
                  Index           =   17
                  Left            =   2940
                  TabIndex        =   101
                  Top             =   2100
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Date Certain"
                  Height          =   255
                  Index           =   21
                  Left            =   4200
                  TabIndex        =   102
                  ToolTipText     =   "Date Certain Delivery"
                  Top             =   2100
                  Width           =   1275
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "AOD"
                  Height          =   255
                  Index           =   18
                  Left            =   2940
                  TabIndex        =   103
                  ToolTipText     =   "Acknowledgement of Delivery"
                  Top             =   2400
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Evening"
                  Height          =   255
                  Index           =   22
                  Left            =   4200
                  TabIndex        =   104
                  ToolTipText     =   "Evening Delivery"
                  Top             =   2400
                  Width           =   1155
               End
               Begin VB.CheckBox chkSpecialSvcs 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Non-Std Pkg"
                  Height          =   255
                  Index           =   19
                  Left            =   2940
                  TabIndex        =   105
                  ToolTipText     =   "Non-Standard Packaging"
                  Top             =   2700
                  Width           =   1215
               End
               Begin VB.CheckBox chkSelectAllShip 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Select All"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   2
                  Left            =   900
                  TabIndex        =   95
                  Top             =   3180
                  Width           =   1575
               End
               Begin VB.Line Line15 
                  BorderColor     =   &H000080FF&
                  BorderWidth     =   2
                  X1              =   2760
                  X2              =   2760
                  Y1              =   420
                  Y2              =   3420
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Express US Domestic"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   210
                  Left            =   420
                  TabIndex        =   454
                  Top             =   420
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Express US Export"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   211
                  Left            =   240
                  TabIndex        =   453
                  Top             =   1860
                  Width           =   2295
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "US Ground"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   212
                  Left            =   3180
                  TabIndex        =   452
                  Top             =   420
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Home Delivery"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   213
                  Left            =   3180
                  TabIndex        =   451
                  Top             =   1860
                  Width           =   1935
               End
               Begin VB.Label Label1 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Special Services"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  ForeColor       =   &H000080FF&
                  Height          =   255
                  Index           =   214
                  Left            =   1800
                  TabIndex        =   450
                  Top             =   120
                  Width           =   1935
               End
            End
            Begin VB.Label lblShipPage 
               BackColor       =   &H00FFFFFF&
               Caption         =   "3"
               Height          =   255
               Index           =   3
               Left            =   3360
               TabIndex        =   823
               Top             =   3780
               Width           =   135
            End
            Begin VB.Label lblShipPage 
               BackColor       =   &H00FFFFFF&
               Caption         =   "2"
               Height          =   255
               Index           =   2
               Left            =   3120
               TabIndex        =   83
               Top             =   3780
               Width           =   135
            End
            Begin VB.Label lblShipPage 
               BackColor       =   &H00FFFFFF&
               Caption         =   "1"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   1
               Left            =   2880
               TabIndex        =   82
               Top             =   3780
               Width           =   135
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Page:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   198
               Left            =   2220
               TabIndex        =   460
               Top             =   3780
               Width           =   495
            End
         End
         Begin VB.Frame fraTabs 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Select Interntional Tab Fields to Lock "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4155
            Index           =   1
            Left            =   240
            TabIndex        =   501
            Top             =   1680
            Width           =   5655
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "NAFTA Applies"
               Height          =   255
               Index           =   3
               Left            =   240
               TabIndex        =   776
               ToolTipText     =   "License Exception Symbol"
               Top             =   1560
               Width           =   1455
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Doc Type"
               Height          =   255
               Index           =   0
               Left            =   240
               TabIndex        =   528
               ToolTipText     =   "Document Type"
               Top             =   600
               Width           =   1035
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Cntry of Mfg"
               Height          =   255
               Index           =   1
               Left            =   1500
               TabIndex        =   527
               ToolTipText     =   "Country of Manufacture"
               Top             =   600
               Width           =   1215
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Pay Type"
               Height          =   255
               Index           =   11
               Left            =   3000
               TabIndex        =   526
               ToolTipText     =   "Duty/Tax Pay Type"
               Top             =   600
               Width           =   1215
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Ult Dest"
               Height          =   255
               Index           =   13
               Left            =   4260
               TabIndex        =   525
               ToolTipText     =   "Country of Ultimate Destination"
               Top             =   600
               Width           =   1215
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Duty Acct#"
               Height          =   255
               Index           =   12
               Left            =   3000
               TabIndex        =   524
               ToolTipText     =   "Duty/Tax Account #"
               Top             =   900
               Width           =   1215
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Related"
               Height          =   255
               Index           =   14
               Left            =   4260
               TabIndex        =   523
               ToolTipText     =   "Parties Related"
               Top             =   900
               Width           =   975
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Description"
               Height          =   255
               Index           =   15
               Left            =   3000
               TabIndex        =   522
               ToolTipText     =   "Commodity Description"
               Top             =   1500
               Width           =   1155
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Harm Code"
               Height          =   255
               Index           =   24
               Left            =   4260
               TabIndex        =   521
               ToolTipText     =   "Harmonized Code"
               Top             =   2400
               Width           =   1095
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "# of Units"
               Height          =   255
               Index           =   16
               Left            =   3000
               TabIndex        =   520
               Top             =   1800
               Width           =   1035
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Measure"
               Height          =   255
               Index           =   17
               Left            =   3000
               TabIndex        =   519
               ToolTipText     =   "Unit of Measure"
               Top             =   2100
               Width           =   975
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Exp Lic"
               Height          =   255
               Index           =   25
               Left            =   4260
               TabIndex        =   518
               ToolTipText     =   "Export License Number"
               Top             =   2700
               Width           =   975
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Unit Value"
               Height          =   255
               Index           =   18
               Left            =   3000
               TabIndex        =   517
               Top             =   2400
               Width           =   1095
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Expire Date"
               Height          =   255
               Index           =   26
               Left            =   4260
               TabIndex        =   516
               ToolTipText     =   "Export License Expiration Date"
               Top             =   3000
               Width           =   1155
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Cust Val"
               Height          =   255
               Index           =   19
               Left            =   3000
               TabIndex        =   515
               ToolTipText     =   "Total Customs Value"
               Top             =   2700
               Width           =   1155
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Weight"
               Height          =   255
               Index           =   21
               Left            =   4260
               TabIndex        =   514
               ToolTipText     =   "Total Commodity Weight"
               Top             =   1500
               Width           =   975
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Wgt Each"
               Height          =   255
               Index           =   22
               Left            =   4260
               TabIndex        =   513
               ToolTipText     =   "Weight Each"
               Top             =   1800
               Width           =   1155
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Cntry of Mfg"
               Height          =   255
               Index           =   23
               Left            =   4260
               TabIndex        =   512
               ToolTipText     =   "Country of Manufacture"
               Top             =   2100
               Width           =   1215
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "ITN/FTSR/XTN #"
               Height          =   255
               Index           =   2
               Left            =   240
               TabIndex        =   511
               ToolTipText     =   "FTSR Exemption #"
               Top             =   1200
               Width           =   1815
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Terms"
               Height          =   255
               Index           =   4
               Left            =   240
               TabIndex        =   510
               ToolTipText     =   "Terms of Sale"
               Top             =   2040
               Width           =   1215
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Comment 1"
               Height          =   255
               Index           =   8
               Left            =   1500
               TabIndex        =   509
               Top             =   2040
               Width           =   1155
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Freight Chg"
               Height          =   255
               Index           =   5
               Left            =   240
               TabIndex        =   508
               ToolTipText     =   "Freight Charge"
               Top             =   2340
               Width           =   1155
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Comment 2"
               Height          =   255
               Index           =   9
               Left            =   1500
               TabIndex        =   507
               Top             =   2340
               Width           =   1155
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Ins Chg"
               Height          =   255
               Index           =   6
               Left            =   240
               TabIndex        =   506
               ToolTipText     =   "Insurance Charge"
               Top             =   2640
               Width           =   975
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Comment 3"
               Height          =   255
               Index           =   10
               Left            =   1500
               TabIndex        =   505
               Top             =   2640
               Width           =   1215
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Misc Chg"
               Height          =   255
               Index           =   7
               Left            =   240
               TabIndex        =   504
               ToolTipText     =   "Miscellaneous Charge"
               Top             =   2940
               Width           =   975
            End
            Begin VB.CheckBox chkSelectAllIntl 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Select All"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   960
               TabIndex        =   503
               Top             =   3360
               Width           =   1575
            End
            Begin VB.CheckBox chkIntlTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Rate Curr"
               Height          =   255
               Index           =   20
               Left            =   3000
               TabIndex        =   502
               ToolTipText     =   "Rate Currency"
               Top             =   3000
               Width           =   1155
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "International Documents"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   215
               Left            =   300
               TabIndex        =   533
               Top             =   360
               Width           =   2175
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "International Commodities"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   216
               Left            =   3000
               TabIndex        =   532
               Top             =   360
               Width           =   2295
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Commercial Invoice"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   217
               Left            =   240
               TabIndex        =   531
               Top             =   1800
               Width           =   2295
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Customs Information"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   218
               Left            =   240
               TabIndex        =   530
               Top             =   960
               Width           =   2295
            End
            Begin VB.Line Line16 
               BorderColor     =   &H000080FF&
               BorderWidth     =   2
               X1              =   2820
               X2              =   2820
               Y1              =   600
               Y2              =   3600
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Define Commodities"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   219
               Left            =   3000
               TabIndex        =   529
               Top             =   1260
               Width           =   2295
            End
         End
         Begin VB.Frame fraTabs 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Select Batch Tab Fields to Lock "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4155
            Index           =   2
            Left            =   240
            TabIndex        =   497
            Top             =   1680
            Width           =   5655
            Begin VB.CheckBox chkBatchTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Filename"
               Height          =   255
               Index           =   1
               Left            =   2880
               TabIndex        =   499
               Top             =   840
               Width           =   1215
            End
            Begin VB.CheckBox chkBatchTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Profile"
               Height          =   255
               Index           =   0
               Left            =   1620
               TabIndex        =   498
               Top             =   840
               Width           =   1035
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "View Parameters"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   225
               Left            =   1680
               TabIndex        =   500
               Top             =   600
               Width           =   2175
            End
         End
         Begin VB.Frame fraTabs 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Select Select Service Quote Tab Fields to Lock "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4155
            Index           =   3
            Left            =   240
            TabIndex        =   474
            Top             =   1680
            Width           =   5655
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "DC"
               Height          =   255
               Index           =   14
               Left            =   3000
               TabIndex        =   492
               ToolTipText     =   "Date Certain"
               Top             =   2760
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "ED"
               Height          =   255
               Index           =   15
               Left            =   4260
               TabIndex        =   491
               ToolTipText     =   "Evening Delivery"
               Top             =   2460
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "COD"
               Height          =   255
               Index           =   8
               Left            =   3000
               TabIndex        =   490
               Top             =   900
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "APOD"
               Height          =   255
               Index           =   11
               Left            =   3000
               TabIndex        =   489
               ToolTipText     =   "Auto Proof of Delivery"
               Top             =   1860
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "AOD"
               Height          =   255
               Index           =   10
               Left            =   3000
               TabIndex        =   488
               ToolTipText     =   "Acknowledgement of Delivery"
               Top             =   1560
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "SIG"
               Height          =   255
               Index           =   13
               Left            =   3000
               TabIndex        =   487
               ToolTipText     =   "Signature Service"
               Top             =   2460
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "RES"
               Height          =   255
               Index           =   9
               Left            =   4260
               TabIndex        =   486
               ToolTipText     =   "Residential Address"
               Top             =   600
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "AD"
               Height          =   255
               Index           =   16
               Left            =   4260
               TabIndex        =   485
               ToolTipText     =   "Appointment Delivery"
               Top             =   2760
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "NON-SP"
               Height          =   255
               Index           =   12
               Left            =   4260
               TabIndex        =   484
               ToolTipText     =   "Non-Standard Packaging"
               Top             =   1560
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "SAT"
               Height          =   255
               Index           =   7
               Left            =   3000
               TabIndex        =   483
               ToolTipText     =   "Saturday Delivery"
               Top             =   600
               Width           =   1155
            End
            Begin VB.CheckBox chkSelectAllQuote 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Select All"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   960
               TabIndex        =   482
               Top             =   3360
               Width           =   1695
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Dimensions"
               Height          =   255
               Index           =   6
               Left            =   1500
               TabIndex        =   481
               Top             =   1500
               Width           =   1275
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Weight"
               Height          =   255
               Index           =   5
               Left            =   1500
               TabIndex        =   480
               Top             =   1200
               Width           =   1275
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Dest Zip"
               Height          =   255
               Index           =   4
               Left            =   1500
               TabIndex        =   479
               ToolTipText     =   "Destination Zip"
               Top             =   900
               Width           =   1275
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Dec Val"
               Height          =   255
               Index           =   3
               Left            =   240
               TabIndex        =   478
               ToolTipText     =   "Declared Value"
               Top             =   1500
               Width           =   975
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "# of Pkgs"
               Height          =   255
               Index           =   2
               Left            =   240
               TabIndex        =   477
               Top             =   1200
               Width           =   1095
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Dest State"
               Height          =   255
               Index           =   1
               Left            =   240
               TabIndex        =   476
               ToolTipText     =   "Destination State"
               Top             =   900
               Width           =   1155
            End
            Begin VB.CheckBox chkQuoteTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Location"
               Height          =   255
               Index           =   0
               Left            =   240
               TabIndex        =   475
               ToolTipText     =   "Origin State"
               Top             =   600
               Width           =   1035
            End
            Begin VB.Line Line17 
               BorderColor     =   &H000080FF&
               BorderWidth     =   2
               X1              =   2820
               X2              =   2820
               Y1              =   600
               Y2              =   3660
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Special Services"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   221
               Left            =   3240
               TabIndex        =   496
               Top             =   360
               Width           =   1935
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "FHD Special"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   222
               Left            =   3180
               TabIndex        =   495
               Top             =   2220
               Width           =   1935
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Ground/FHD Special"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   223
               Left            =   3240
               TabIndex        =   494
               Top             =   1320
               Width           =   1935
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Quote Properties"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   224
               Left            =   480
               TabIndex        =   493
               Top             =   360
               Width           =   1935
            End
         End
         Begin VB.Frame fraTabs 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Select Shipping History Tab Fields to Lock "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4155
            Index           =   4
            Left            =   240
            TabIndex        =   464
            Top             =   1680
            Width           =   5655
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Ship Date"
               Height          =   255
               Index           =   0
               Left            =   1620
               TabIndex        =   472
               Top             =   840
               Width           =   1035
            End
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Ground"
               Height          =   255
               Index           =   4
               Left            =   2880
               TabIndex        =   471
               Top             =   840
               Width           =   1215
            End
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Location"
               Height          =   255
               Index           =   1
               Left            =   1620
               TabIndex        =   470
               Top             =   1140
               Width           =   1035
            End
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "International"
               Height          =   255
               Index           =   5
               Left            =   2880
               TabIndex        =   469
               Top             =   1140
               Width           =   1215
            End
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Search"
               Height          =   255
               Index           =   2
               Left            =   1620
               TabIndex        =   468
               Top             =   1440
               Width           =   1215
            End
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Shipped"
               Height          =   255
               Index           =   6
               Left            =   2880
               TabIndex        =   467
               Top             =   1440
               Width           =   1155
            End
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Express"
               Height          =   255
               Index           =   3
               Left            =   1620
               TabIndex        =   466
               Top             =   1740
               Width           =   1155
            End
            Begin VB.CheckBox chkHistoryTab 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Deleted"
               Height          =   255
               Index           =   7
               Left            =   2880
               TabIndex        =   465
               Top             =   1740
               Width           =   1155
            End
            Begin VB.Label Label1 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "View Parameters"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H000080FF&
               Height          =   255
               Index           =   220
               Left            =   1680
               TabIndex        =   473
               Top             =   600
               Width           =   2175
            End
         End
         Begin VB.Frame fraTabs 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Select Fedex.com Tab Fields to Lock "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4155
            Index           =   5
            Left            =   240
            TabIndex        =   461
            Top             =   1680
            Width           =   5655
            Begin VB.Label Label37 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "No fields available for locking."
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   900
               TabIndex        =   463
               Top             =   1740
               Width           =   3855
            End
            Begin VB.Label Label38 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Select Disable to remove access to this tab."
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   900
               TabIndex        =   462
               Top             =   2040
               Width           =   3855
            End
         End
         Begin VB.Label Label36 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Access Priveleges"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   534
            Top             =   135
            Width           =   2775
         End
         Begin VB.Line Line13 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   9
         Left            =   -74985
         TabIndex        =   399
         Top             =   915
         Width           =   6100
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   10
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   421
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   10
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   422
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame24 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Service Code Conversion Flag"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   735
            Left            =   240
            TabIndex        =   400
            Top             =   480
            Width           =   5655
            Begin VB.CheckBox chkConvertSvcCodes 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Convert Customer Codes to FedEx Codes"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   900
               TabIndex        =   401
               Top             =   300
               Width           =   3855
            End
         End
         Begin VB.Frame fraSvcCode 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Enter Customer Services Codes "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   1
            Left            =   240
            TabIndex        =   423
            Top             =   1380
            Width           =   5655
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   9
               Left            =   2640
               TabIndex        =   411
               Top             =   3600
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   8
               Left            =   2640
               TabIndex        =   410
               Top             =   3240
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   7
               Left            =   2640
               TabIndex        =   409
               Top             =   2880
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   0
               Left            =   2640
               TabIndex        =   402
               Top             =   360
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   1
               Left            =   2640
               TabIndex        =   403
               Top             =   720
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   2
               Left            =   2640
               TabIndex        =   404
               Top             =   1080
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   3
               Left            =   2640
               TabIndex        =   405
               Top             =   1440
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   4
               Left            =   2640
               TabIndex        =   406
               Top             =   1800
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   6
               Left            =   2640
               TabIndex        =   408
               Top             =   2520
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   5
               Left            =   2640
               TabIndex        =   407
               Top             =   2160
               Width           =   2295
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "1 Day Freight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   197
               Left            =   840
               TabIndex        =   434
               Top             =   2940
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "2 Day Freight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   196
               Left            =   840
               TabIndex        =   433
               Top             =   3300
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "3 Day Freight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   195
               Left            =   840
               TabIndex        =   432
               Top             =   3660
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "First Overnight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   188
               Left            =   840
               TabIndex        =   430
               Top             =   420
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Priority Overnight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   189
               Left            =   840
               TabIndex        =   429
               Top             =   780
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Standard Overnight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   190
               Left            =   720
               TabIndex        =   428
               Top             =   1140
               Width           =   1815
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "2 Day:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   191
               Left            =   840
               TabIndex        =   427
               Top             =   1500
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Express Saver:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   192
               Left            =   840
               TabIndex        =   426
               Top             =   1860
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Ground:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   193
               Left            =   840
               TabIndex        =   425
               Top             =   2220
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Home Delivery:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   194
               Left            =   840
               TabIndex        =   424
               Top             =   2580
               Width           =   1695
            End
         End
         Begin VB.Frame fraSvcCode 
            BackColor       =   &H00FFFFFF&
            Caption         =   " Enter Customer Services Codes "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   2
            Left            =   240
            TabIndex        =   435
            Top             =   1380
            Width           =   5655
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   15
               Left            =   2640
               TabIndex        =   419
               Top             =   2520
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   16
               Left            =   2640
               TabIndex        =   420
               Top             =   2880
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   14
               Left            =   2640
               TabIndex        =   417
               Top             =   2160
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   13
               Left            =   2640
               TabIndex        =   418
               Top             =   1800
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   12
               Left            =   2640
               TabIndex        =   416
               Top             =   1440
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   11
               Left            =   2640
               TabIndex        =   415
               Top             =   1080
               Width           =   2295
            End
            Begin VB.TextBox txtCustSvcCode 
               Height          =   315
               Index           =   10
               Left            =   2640
               TabIndex        =   414
               Top             =   720
               Width           =   2295
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Home Delivery (CA Only):"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   207
               Left            =   300
               TabIndex        =   442
               Top             =   2940
               Width           =   2235
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Ground (CA Only):"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   206
               Left            =   840
               TabIndex        =   441
               Top             =   2580
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Int'l Economy Freight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   205
               Left            =   600
               TabIndex        =   440
               Top             =   2220
               Width           =   1935
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Int'l Priority Freight:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   204
               Left            =   840
               TabIndex        =   439
               Top             =   1860
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Int'l First:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   203
               Left            =   660
               TabIndex        =   438
               Top             =   780
               Width           =   1815
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Int'l Economy:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   202
               Left            =   780
               TabIndex        =   437
               Top             =   1500
               Width           =   1695
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Int'l Priority:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   201
               Left            =   780
               TabIndex        =   436
               Top             =   1140
               Width           =   1695
            End
         End
         Begin VB.Line Line11 
            Index           =   0
            X1              =   3120
            X2              =   3120
            Y1              =   5520
            Y2              =   5775
         End
         Begin VB.Label lblSvcCode 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "International"
            Height          =   255
            Index           =   2
            Left            =   3240
            TabIndex        =   413
            Top             =   5520
            Width           =   1095
         End
         Begin VB.Label lblSvcCode 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Domestic"
            Height          =   255
            Index           =   1
            Left            =   2160
            TabIndex        =   412
            Top             =   5520
            Width           =   855
         End
         Begin VB.Label Label14 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Service Codes Conversion"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   431
            Top             =   135
            Width           =   2775
         End
         Begin VB.Line Line12 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   7
         Left            =   -74985
         TabIndex        =   220
         Top             =   915
         Width           =   6100
         Begin MSComDlg.CommonDialog cdlColor 
            Index           =   1
            Left            =   240
            Top             =   2520
            _ExtentX        =   847
            _ExtentY        =   847
            _Version        =   393216
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   8
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   233
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   8
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   232
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame22 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Configure"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1935
            Left            =   240
            TabIndex        =   222
            Top             =   600
            Width           =   5655
            Begin VB.TextBox txtButtonColor 
               Height          =   315
               Index           =   1
               Left            =   3720
               TabIndex        =   225
               Text            =   "12640511"
               Top             =   720
               Width           =   1215
            End
            Begin VB.TextBox txtButtonColor 
               Height          =   315
               Index           =   2
               Left            =   3720
               TabIndex        =   228
               Text            =   "12640511"
               Top             =   1080
               Width           =   1215
            End
            Begin VB.TextBox txtButtonColor 
               Height          =   315
               Index           =   3
               Left            =   3720
               TabIndex        =   231
               Text            =   "12640511"
               Top             =   1440
               Width           =   1215
            End
            Begin VB.CheckBox chkCustomButtons 
               BackColor       =   &H00FFFFFF&
               Height          =   255
               Index           =   3
               Left            =   1560
               TabIndex        =   229
               Top             =   1440
               Width           =   255
            End
            Begin VB.CheckBox chkCustomButtons 
               BackColor       =   &H00FFFFFF&
               Height          =   255
               Index           =   2
               Left            =   1560
               TabIndex        =   226
               Top             =   1080
               Width           =   255
            End
            Begin VB.CheckBox chkCustomButtons 
               BackColor       =   &H00FFFFFF&
               Height          =   255
               Index           =   1
               Left            =   1560
               TabIndex        =   223
               Top             =   720
               Width           =   255
            End
            Begin VB.TextBox txtButtonCaption 
               Height          =   315
               Index           =   1
               Left            =   2160
               TabIndex        =   224
               Top             =   720
               Width           =   1215
            End
            Begin VB.TextBox txtButtonCaption 
               Height          =   315
               Index           =   2
               Left            =   2160
               TabIndex        =   227
               Top             =   1080
               Width           =   1215
            End
            Begin VB.TextBox txtButtonCaption 
               Height          =   315
               Index           =   3
               Left            =   2160
               TabIndex        =   230
               Top             =   1440
               Width           =   1215
            End
            Begin VB.Image imgButtonColor 
               Height          =   240
               Index           =   3
               Left            =   5040
               Picture         =   "frmSetup.frx":050D
               ToolTipText     =   "Select Button 3 Color"
               Top             =   1470
               Width           =   240
            End
            Begin VB.Image imgButtonColor 
               Height          =   240
               Index           =   2
               Left            =   5040
               Picture         =   "frmSetup.frx":084F
               ToolTipText     =   "Select Button 2 Color"
               Top             =   1110
               Width           =   240
            End
            Begin VB.Image imgButtonColor 
               Height          =   240
               Index           =   1
               Left            =   5040
               Picture         =   "frmSetup.frx":0B91
               ToolTipText     =   "Select Button 1 Color"
               Top             =   750
               Width           =   240
            End
            Begin VB.Label Label35 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Color"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   3720
               TabIndex        =   240
               Top             =   360
               Width           =   1215
            End
            Begin VB.Label Label34 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Custom 3:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   240
               TabIndex        =   239
               Top             =   1440
               Width           =   975
            End
            Begin VB.Label Label33 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Custom 2:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   240
               TabIndex        =   238
               Top             =   1080
               Width           =   975
            End
            Begin VB.Label Label31 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Custom 1:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   240
               TabIndex        =   236
               Top             =   720
               Width           =   975
            End
            Begin VB.Label Label30 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Enable"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1320
               TabIndex        =   235
               Top             =   360
               Width           =   735
            End
            Begin VB.Label Label29 
               Alignment       =   2  'Center
               BackColor       =   &H00FFFFFF&
               Caption         =   "Caption"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   2160
               TabIndex        =   234
               Top             =   360
               Width           =   1215
            End
         End
         Begin MSComDlg.CommonDialog cdlColor 
            Index           =   2
            Left            =   720
            Top             =   2520
            _ExtentX        =   847
            _ExtentY        =   847
            _Version        =   393216
         End
         Begin MSComDlg.CommonDialog cdlColor 
            Index           =   3
            Left            =   1200
            Top             =   2520
            _ExtentX        =   847
            _ExtentY        =   847
            _Version        =   393216
         End
         Begin VB.Line Line10 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
         Begin VB.Label Label32 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Custom Buttons Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   237
            Top             =   135
            Width           =   2775
         End
      End
      Begin VB.Frame Frame16 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame16"
         Height          =   6465
         Left            =   -74985
         TabIndex        =   182
         Top             =   915
         Width           =   6100
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   7
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   221
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   7
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   219
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame Frame21 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Select Rates to Show"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1215
            Left            =   240
            TabIndex        =   213
            Top             =   4200
            Width           =   5655
            Begin VB.OptionButton optListandActual 
               BackColor       =   &H00FFFFFF&
               Caption         =   "List and Actual"
               Height          =   255
               Left            =   600
               TabIndex        =   216
               Top             =   480
               Width           =   1455
            End
            Begin VB.OptionButton optActual 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Actual Only"
               Height          =   255
               Left            =   2160
               TabIndex        =   217
               Top             =   480
               Width           =   1335
            End
            Begin VB.OptionButton optList 
               BackColor       =   &H00FFFFFF&
               Caption         =   "List Only "
               Height          =   255
               Left            =   3600
               TabIndex        =   218
               Top             =   480
               Width           =   1095
            End
         End
         Begin VB.Frame Frame17 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Handling Charges"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   3435
            Left            =   240
            TabIndex        =   184
            Top             =   600
            Width           =   5655
            Begin VB.Frame Frame20 
               BackColor       =   &H00FFFFFF&
               BorderStyle     =   0  'None
               Height          =   975
               Left            =   540
               TabIndex        =   207
               Top             =   1440
               Width           =   3015
               Begin VB.OptionButton f1588 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Add % to Net Chg"
                  Height          =   255
                  Index           =   3
                  Left            =   240
                  TabIndex        =   202
                  ToolTipText     =   "Net Chg = Freight + Surcharges"
                  Top             =   600
                  Width           =   2295
               End
               Begin VB.OptionButton f1588 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Add Flat $ Amt"
                  Height          =   255
                  Index           =   1
                  Left            =   240
                  TabIndex        =   200
                  Top             =   0
                  Width           =   1815
               End
               Begin VB.OptionButton f1588 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Add % to Freight Chg"
                  Height          =   255
                  Index           =   2
                  Left            =   240
                  TabIndex        =   201
                  ToolTipText     =   "Freight Chg = Gross - Discount"
                  Top             =   300
                  Width           =   1995
               End
            End
            Begin VB.Frame Frame19 
               BackColor       =   &H00FFFFFF&
               BorderStyle     =   0  'None
               Height          =   615
               Left            =   540
               TabIndex        =   205
               Top             =   2640
               Width           =   2295
               Begin VB.OptionButton f1606 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Per Shipment"
                  Height          =   375
                  Index           =   1
                  Left            =   240
                  TabIndex        =   204
                  Top             =   300
                  Width           =   1335
               End
               Begin VB.OptionButton f1606 
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "Per Package"
                  Height          =   375
                  Index           =   0
                  Left            =   240
                  TabIndex        =   203
                  Top             =   0
                  Width           =   1230
               End
            End
            Begin VB.CheckBox chkBySvc 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Define by Service"
               Height          =   255
               Left            =   780
               TabIndex        =   199
               Top             =   840
               Width           =   1935
            End
            Begin VB.CheckBox chkAddHndlChg 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Add Handling Charge"
               Height          =   255
               Left            =   780
               TabIndex        =   198
               Top             =   480
               Width           =   2295
            End
            Begin VB.Frame Frame18 
               BackColor       =   &H00FFFFFF&
               BorderStyle     =   0  'None
               Caption         =   "Frame3"
               Height          =   2655
               Left            =   3600
               TabIndex        =   185
               Top             =   360
               Width           =   1575
               Begin VB.TextBox f1595 
                  Alignment       =   1  'Right Justify
                  Height          =   315
                  Index           =   6
                  Left            =   480
                  TabIndex        =   215
                  Top             =   1920
                  Width           =   615
               End
               Begin VB.TextBox f1595 
                  Alignment       =   1  'Right Justify
                  Height          =   315
                  Index           =   5
                  Left            =   480
                  TabIndex        =   214
                  Top             =   1560
                  Width           =   615
               End
               Begin VB.TextBox f1595 
                  Alignment       =   1  'Right Justify
                  Height          =   315
                  Index           =   4
                  Left            =   480
                  TabIndex        =   212
                  Top             =   1200
                  Width           =   615
               End
               Begin VB.TextBox f1595 
                  Alignment       =   1  'Right Justify
                  Height          =   315
                  Index           =   3
                  Left            =   480
                  TabIndex        =   210
                  Top             =   840
                  Width           =   615
               End
               Begin VB.TextBox f1595 
                  Alignment       =   1  'Right Justify
                  Height          =   315
                  Index           =   2
                  Left            =   480
                  TabIndex        =   208
                  Top             =   480
                  Width           =   615
               End
               Begin VB.TextBox f1595 
                  Alignment       =   1  'Right Justify
                  Height          =   315
                  Index           =   1
                  Left            =   480
                  TabIndex        =   206
                  Top             =   120
                  Width           =   615
               End
               Begin VB.Label lblSign 
                  Alignment       =   1  'Right Justify
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "$"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   6
                  Left            =   120
                  TabIndex        =   197
                  Top             =   1920
                  Width           =   255
               End
               Begin VB.Label lblSign 
                  Alignment       =   1  'Right Justify
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "$"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   5
                  Left            =   120
                  TabIndex        =   196
                  Top             =   1560
                  Width           =   255
               End
               Begin VB.Label lblSign 
                  Alignment       =   1  'Right Justify
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "$"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   4
                  Left            =   120
                  TabIndex        =   195
                  Top             =   1200
                  Width           =   255
               End
               Begin VB.Label lblSign 
                  Alignment       =   1  'Right Justify
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "$"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   3
                  Left            =   120
                  TabIndex        =   194
                  Top             =   840
                  Width           =   255
               End
               Begin VB.Label lblSign 
                  Alignment       =   1  'Right Justify
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "$"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   2
                  Left            =   120
                  TabIndex        =   193
                  Top             =   480
                  Width           =   255
               End
               Begin VB.Label lblSign 
                  Alignment       =   1  'Right Justify
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "$"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   1
                  Left            =   120
                  TabIndex        =   192
                  Top             =   120
                  Width           =   255
               End
               Begin VB.Label lblSvc 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "FHD"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   6
                  Left            =   1200
                  TabIndex        =   191
                  Top             =   1920
                  Width           =   375
               End
               Begin VB.Label lblSvc 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "GR"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   5
                  Left            =   1200
                  TabIndex        =   190
                  Top             =   1560
                  Width           =   375
               End
               Begin VB.Label lblSvc 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "XS"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   4
                  Left            =   1200
                  TabIndex        =   189
                  Top             =   1200
                  Width           =   375
               End
               Begin VB.Label lblSvc 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "ES"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   3
                  Left            =   1200
                  TabIndex        =   188
                  Top             =   840
                  Width           =   375
               End
               Begin VB.Label lblSvc 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "SO"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   2
                  Left            =   1200
                  TabIndex        =   187
                  Top             =   480
                  Width           =   375
               End
               Begin VB.Label lblSvc 
                  Alignment       =   2  'Center
                  BackColor       =   &H00FFFFFF&
                  Caption         =   "PO"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Index           =   1
                  Left            =   1200
                  TabIndex        =   186
                  Top             =   120
                  Width           =   375
               End
            End
            Begin VB.Label Label28 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Add Level:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   780
               TabIndex        =   211
               Top             =   2400
               Width           =   1215
            End
            Begin VB.Label Label27 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Type:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   780
               TabIndex        =   209
               Top             =   1200
               Width           =   1095
            End
         End
         Begin VB.Line Line9 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
         Begin VB.Label Label18 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Handling Charges and Rates"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   183
            Top             =   135
            Width           =   3135
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   6
         Left            =   -74985
         TabIndex        =   176
         Top             =   915
         Width           =   6100
         Begin VB.Frame Frame13 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Data Format Out"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   735
            Left            =   240
            TabIndex        =   178
            Top             =   480
            Width           =   5655
            Begin VB.ComboBox cboQualOut 
               Height          =   315
               ItemData        =   "frmSetup.frx":0ED3
               Left            =   3960
               List            =   "frmSetup.frx":0ED5
               TabIndex        =   112
               Top             =   240
               Width           =   975
            End
            Begin VB.ComboBox cboDelimOut 
               Height          =   315
               ItemData        =   "frmSetup.frx":0ED7
               Left            =   1560
               List            =   "frmSetup.frx":0ED9
               TabIndex        =   111
               Top             =   240
               Width           =   975
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Text Qualifier:"
               Height          =   255
               Index           =   64
               Left            =   2880
               TabIndex        =   180
               Top             =   300
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Delimiter:"
               Height          =   255
               Index           =   33
               Left            =   720
               TabIndex        =   179
               Top             =   300
               Width           =   780
            End
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   6
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   143
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   6
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   144
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Frame fraOutputFieldNums 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Enter OutputField Numbers"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   1
            Left            =   240
            TabIndex        =   241
            Top             =   1320
            Width           =   5655
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   29
               Left            =   4680
               TabIndex        =   142
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   28
               Left            =   4680
               TabIndex        =   141
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   27
               Left            =   4680
               TabIndex        =   140
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   26
               Left            =   4680
               TabIndex        =   139
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   25
               Left            =   4680
               TabIndex        =   138
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   24
               Left            =   4680
               TabIndex        =   137
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   23
               Left            =   4680
               TabIndex        =   136
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   22
               Left            =   4680
               TabIndex        =   135
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   21
               Left            =   4680
               TabIndex        =   134
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   20
               Left            =   4680
               TabIndex        =   133
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   19
               Left            =   2880
               TabIndex        =   132
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   18
               Left            =   2880
               TabIndex        =   131
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   17
               Left            =   2880
               TabIndex        =   130
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   16
               Left            =   2880
               TabIndex        =   129
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   15
               Left            =   2880
               TabIndex        =   128
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   14
               Left            =   2880
               TabIndex        =   127
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   13
               Left            =   2880
               TabIndex        =   126
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   12
               Left            =   2880
               TabIndex        =   125
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   11
               Left            =   2880
               TabIndex        =   124
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   10
               Left            =   2880
               TabIndex        =   123
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   9
               Left            =   1080
               TabIndex        =   122
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   8
               Left            =   1080
               TabIndex        =   121
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   7
               Left            =   1080
               TabIndex        =   120
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   6
               Left            =   1080
               TabIndex        =   119
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   5
               Left            =   1080
               TabIndex        =   118
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   4
               Left            =   1080
               TabIndex        =   117
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   3
               Left            =   1080
               TabIndex        =   116
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   2
               Left            =   1080
               TabIndex        =   115
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   1
               Left            =   1080
               TabIndex        =   114
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   0
               Left            =   1080
               TabIndex        =   113
               Top             =   360
               Width           =   735
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 30:"
               Height          =   255
               Index           =   63
               Left            =   3720
               TabIndex        =   271
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 29:"
               Height          =   255
               Index           =   62
               Left            =   3720
               TabIndex        =   270
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 28:"
               Height          =   255
               Index           =   61
               Left            =   3720
               TabIndex        =   269
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 27:"
               Height          =   255
               Index           =   60
               Left            =   3720
               TabIndex        =   268
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 26:"
               Height          =   255
               Index           =   59
               Left            =   3720
               TabIndex        =   267
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 25:"
               Height          =   255
               Index           =   58
               Left            =   3720
               TabIndex        =   266
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 24:"
               Height          =   255
               Index           =   57
               Left            =   3720
               TabIndex        =   265
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 23:"
               Height          =   255
               Index           =   56
               Left            =   3720
               TabIndex        =   264
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 22:"
               Height          =   255
               Index           =   55
               Left            =   3720
               TabIndex        =   263
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 21:"
               Height          =   255
               Index           =   54
               Left            =   3720
               TabIndex        =   262
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 20:"
               Height          =   255
               Index           =   53
               Left            =   1800
               TabIndex        =   261
               Top             =   3660
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 19:"
               Height          =   255
               Index           =   52
               Left            =   1920
               TabIndex        =   260
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 18:"
               Height          =   255
               Index           =   51
               Left            =   1920
               TabIndex        =   259
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 17:"
               Height          =   255
               Index           =   50
               Left            =   1920
               TabIndex        =   258
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 16:"
               Height          =   255
               Index           =   49
               Left            =   1920
               TabIndex        =   257
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 15:"
               Height          =   255
               Index           =   48
               Left            =   1920
               TabIndex        =   256
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 14:"
               Height          =   255
               Index           =   47
               Left            =   1920
               TabIndex        =   255
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 13:"
               Height          =   255
               Index           =   46
               Left            =   1920
               TabIndex        =   254
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 12:"
               Height          =   255
               Index           =   45
               Left            =   1920
               TabIndex        =   253
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 11:"
               Height          =   255
               Index           =   44
               Left            =   1920
               TabIndex        =   252
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 10:"
               Height          =   255
               Index           =   43
               Left            =   120
               TabIndex        =   251
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 9:"
               Height          =   255
               Index           =   42
               Left            =   240
               TabIndex        =   250
               Top             =   3300
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 8:"
               Height          =   255
               Index           =   41
               Left            =   240
               TabIndex        =   249
               Top             =   2940
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 7:"
               Height          =   255
               Index           =   40
               Left            =   240
               TabIndex        =   248
               Top             =   2580
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 6:"
               Height          =   255
               Index           =   39
               Left            =   240
               TabIndex        =   247
               Top             =   2220
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 5:"
               Height          =   255
               Index           =   38
               Left            =   240
               TabIndex        =   246
               Top             =   1860
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 4:"
               Height          =   255
               Index           =   37
               Left            =   240
               TabIndex        =   245
               Top             =   1500
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 3:"
               Height          =   255
               Index           =   36
               Left            =   240
               TabIndex        =   244
               Top             =   1140
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 2:"
               Height          =   255
               Index           =   35
               Left            =   240
               TabIndex        =   243
               Top             =   780
               Width           =   780
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 1:"
               Height          =   255
               Index           =   34
               Left            =   240
               TabIndex        =   242
               Top             =   420
               Width           =   780
            End
         End
         Begin VB.Frame fraOutputFieldNums 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Enter OutputField Numbers"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   3
            Left            =   240
            TabIndex        =   306
            Top             =   1320
            Width           =   5655
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   60
               Left            =   1080
               TabIndex        =   336
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   88
               Left            =   4680
               TabIndex        =   335
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   87
               Left            =   4680
               TabIndex        =   334
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   86
               Left            =   4680
               TabIndex        =   333
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   85
               Left            =   4680
               TabIndex        =   332
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   84
               Left            =   4680
               TabIndex        =   331
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   83
               Left            =   4680
               TabIndex        =   330
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   82
               Left            =   4680
               TabIndex        =   329
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   81
               Left            =   4680
               TabIndex        =   328
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   80
               Left            =   4680
               TabIndex        =   327
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   79
               Left            =   2880
               TabIndex        =   326
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   78
               Left            =   2880
               TabIndex        =   325
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   77
               Left            =   2880
               TabIndex        =   324
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   76
               Left            =   2880
               TabIndex        =   323
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   75
               Left            =   2880
               TabIndex        =   322
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   74
               Left            =   2880
               TabIndex        =   321
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   73
               Left            =   2880
               TabIndex        =   320
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   72
               Left            =   2880
               TabIndex        =   319
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   71
               Left            =   2880
               TabIndex        =   318
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   70
               Left            =   2880
               TabIndex        =   317
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   69
               Left            =   1080
               TabIndex        =   316
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   68
               Left            =   1080
               TabIndex        =   315
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   67
               Left            =   1080
               TabIndex        =   314
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   66
               Left            =   1080
               TabIndex        =   313
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   65
               Left            =   1080
               TabIndex        =   312
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   64
               Left            =   1080
               TabIndex        =   311
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   63
               Left            =   1080
               TabIndex        =   310
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   62
               Left            =   1080
               TabIndex        =   309
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   61
               Left            =   1080
               TabIndex        =   308
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   89
               Left            =   4680
               TabIndex        =   307
               Top             =   3600
               Width           =   735
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 61:"
               Height          =   255
               Index           =   186
               Left            =   120
               TabIndex        =   396
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 62:"
               Height          =   255
               Index           =   185
               Left            =   120
               TabIndex        =   395
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 63:"
               Height          =   255
               Index           =   184
               Left            =   120
               TabIndex        =   394
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 64:"
               Height          =   255
               Index           =   183
               Left            =   120
               TabIndex        =   393
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 65:"
               Height          =   255
               Index           =   182
               Left            =   120
               TabIndex        =   392
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 66:"
               Height          =   255
               Index           =   181
               Left            =   120
               TabIndex        =   391
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 67:"
               Height          =   255
               Index           =   180
               Left            =   120
               TabIndex        =   390
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 68:"
               Height          =   255
               Index           =   179
               Left            =   120
               TabIndex        =   389
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 69:"
               Height          =   255
               Index           =   178
               Left            =   120
               TabIndex        =   388
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 70:"
               Height          =   255
               Index           =   177
               Left            =   120
               TabIndex        =   387
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 71:"
               Height          =   255
               Index           =   176
               Left            =   1920
               TabIndex        =   386
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 72:"
               Height          =   255
               Index           =   175
               Left            =   1920
               TabIndex        =   385
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position73:"
               Height          =   255
               Index           =   174
               Left            =   1920
               TabIndex        =   384
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 74:"
               Height          =   255
               Index           =   173
               Left            =   1920
               TabIndex        =   383
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 75:"
               Height          =   255
               Index           =   172
               Left            =   1920
               TabIndex        =   382
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 76:"
               Height          =   255
               Index           =   171
               Left            =   1920
               TabIndex        =   381
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 77:"
               Height          =   255
               Index           =   170
               Left            =   1920
               TabIndex        =   380
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 78:"
               Height          =   255
               Index           =   169
               Left            =   1920
               TabIndex        =   379
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 79:"
               Height          =   255
               Index           =   168
               Left            =   1920
               TabIndex        =   378
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 80:"
               Height          =   255
               Index           =   167
               Left            =   1800
               TabIndex        =   377
               Top             =   3660
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 81:"
               Height          =   255
               Index           =   166
               Left            =   3720
               TabIndex        =   376
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 82:"
               Height          =   255
               Index           =   165
               Left            =   3720
               TabIndex        =   375
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 83:"
               Height          =   255
               Index           =   164
               Left            =   3720
               TabIndex        =   374
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 84:"
               Height          =   255
               Index           =   163
               Left            =   3720
               TabIndex        =   373
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 85:"
               Height          =   255
               Index           =   162
               Left            =   3720
               TabIndex        =   372
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 86:"
               Height          =   255
               Index           =   161
               Left            =   3720
               TabIndex        =   371
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 87:"
               Height          =   255
               Index           =   160
               Left            =   3720
               TabIndex        =   370
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 88:"
               Height          =   255
               Index           =   159
               Left            =   3720
               TabIndex        =   369
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 89:"
               Height          =   255
               Index           =   158
               Left            =   3720
               TabIndex        =   368
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 90:"
               Height          =   255
               Index           =   157
               Left            =   3720
               TabIndex        =   367
               Top             =   3660
               Width           =   900
            End
         End
         Begin VB.Frame fraOutputFieldNums 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Enter OutputField Numbers"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   4095
            Index           =   2
            Left            =   240
            TabIndex        =   276
            Top             =   1320
            Width           =   5655
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   59
               Left            =   4680
               TabIndex        =   305
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   58
               Left            =   4680
               TabIndex        =   304
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   57
               Left            =   4680
               TabIndex        =   303
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   56
               Left            =   4680
               TabIndex        =   302
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   55
               Left            =   4680
               TabIndex        =   301
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   54
               Left            =   4680
               TabIndex        =   300
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   53
               Left            =   4680
               TabIndex        =   299
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   52
               Left            =   4680
               TabIndex        =   298
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   51
               Left            =   4680
               TabIndex        =   297
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   50
               Left            =   4740
               TabIndex        =   296
               Top             =   360
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   49
               Left            =   2880
               TabIndex        =   295
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   48
               Left            =   2880
               TabIndex        =   294
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   47
               Left            =   2880
               TabIndex        =   293
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   46
               Left            =   2880
               TabIndex        =   292
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   45
               Left            =   2880
               TabIndex        =   291
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   44
               Left            =   2880
               TabIndex        =   290
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   43
               Left            =   2880
               TabIndex        =   289
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   42
               Left            =   2880
               TabIndex        =   288
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   41
               Left            =   2880
               TabIndex        =   287
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   40
               Left            =   2880
               TabIndex        =   286
               Top             =   420
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   39
               Left            =   1080
               TabIndex        =   285
               Top             =   3600
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   38
               Left            =   1080
               TabIndex        =   284
               Top             =   3240
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   37
               Left            =   1080
               TabIndex        =   283
               Top             =   2880
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   36
               Left            =   1080
               TabIndex        =   282
               Top             =   2520
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   35
               Left            =   1080
               TabIndex        =   281
               Top             =   2160
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   34
               Left            =   1080
               TabIndex        =   280
               Top             =   1800
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   33
               Left            =   1080
               TabIndex        =   279
               Top             =   1440
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   32
               Left            =   1080
               TabIndex        =   278
               Top             =   1080
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   31
               Left            =   1080
               TabIndex        =   277
               Top             =   720
               Width           =   735
            End
            Begin VB.TextBox txtOutputFld 
               Height          =   315
               Index           =   30
               Left            =   1080
               TabIndex        =   145
               Top             =   360
               Width           =   735
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 31:"
               Height          =   255
               Index           =   156
               Left            =   120
               TabIndex        =   366
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 32:"
               Height          =   255
               Index           =   155
               Left            =   120
               TabIndex        =   365
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 33:"
               Height          =   255
               Index           =   154
               Left            =   120
               TabIndex        =   364
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 34:"
               Height          =   255
               Index           =   153
               Left            =   120
               TabIndex        =   363
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 35:"
               Height          =   255
               Index           =   152
               Left            =   120
               TabIndex        =   362
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 36:"
               Height          =   255
               Index           =   151
               Left            =   120
               TabIndex        =   361
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 37:"
               Height          =   255
               Index           =   150
               Left            =   120
               TabIndex        =   360
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 38:"
               Height          =   255
               Index           =   149
               Left            =   120
               TabIndex        =   359
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 39:"
               Height          =   255
               Index           =   148
               Left            =   120
               TabIndex        =   358
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 40:"
               Height          =   255
               Index           =   147
               Left            =   120
               TabIndex        =   357
               Top             =   3660
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 41:"
               Height          =   255
               Index           =   146
               Left            =   1920
               TabIndex        =   356
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 42:"
               Height          =   255
               Index           =   145
               Left            =   1920
               TabIndex        =   355
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 43:"
               Height          =   255
               Index           =   144
               Left            =   1920
               TabIndex        =   354
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 44:"
               Height          =   255
               Index           =   143
               Left            =   1920
               TabIndex        =   353
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 45:"
               Height          =   255
               Index           =   142
               Left            =   1920
               TabIndex        =   352
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 46:"
               Height          =   255
               Index           =   141
               Left            =   1920
               TabIndex        =   351
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 47:"
               Height          =   255
               Index           =   140
               Left            =   1920
               TabIndex        =   350
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 48:"
               Height          =   255
               Index           =   139
               Left            =   1920
               TabIndex        =   349
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 49:"
               Height          =   255
               Index           =   138
               Left            =   1920
               TabIndex        =   348
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 50:"
               Height          =   255
               Index           =   137
               Left            =   1800
               TabIndex        =   347
               Top             =   3660
               Width           =   1020
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 51:"
               Height          =   255
               Index           =   136
               Left            =   3720
               TabIndex        =   346
               Top             =   420
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 52:"
               Height          =   255
               Index           =   135
               Left            =   3720
               TabIndex        =   345
               Top             =   780
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 53:"
               Height          =   255
               Index           =   134
               Left            =   3720
               TabIndex        =   344
               Top             =   1140
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 54:"
               Height          =   255
               Index           =   133
               Left            =   3720
               TabIndex        =   343
               Top             =   1500
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 55:"
               Height          =   255
               Index           =   132
               Left            =   3720
               TabIndex        =   342
               Top             =   1860
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 56:"
               Height          =   255
               Index           =   131
               Left            =   3720
               TabIndex        =   341
               Top             =   2220
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 57:"
               Height          =   255
               Index           =   130
               Left            =   3720
               TabIndex        =   340
               Top             =   2580
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 58:"
               Height          =   255
               Index           =   129
               Left            =   3720
               TabIndex        =   339
               Top             =   2940
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 59:"
               Height          =   255
               Index           =   128
               Left            =   3720
               TabIndex        =   338
               Top             =   3300
               Width           =   900
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Position 60:"
               Height          =   255
               Index           =   127
               Left            =   3720
               TabIndex        =   337
               Top             =   3660
               Width           =   900
            End
         End
         Begin VB.Label lblOutputPage 
            BackColor       =   &H00FFFFFF&
            Caption         =   "3"
            Height          =   255
            Index           =   3
            Left            =   3600
            TabIndex        =   275
            Top             =   5520
            Width           =   135
         End
         Begin VB.Label lblOutputPage 
            BackColor       =   &H00FFFFFF&
            Caption         =   "2"
            Height          =   255
            Index           =   2
            Left            =   3360
            TabIndex        =   274
            Top             =   5520
            Width           =   135
         End
         Begin VB.Label lblOutputPage 
            BackColor       =   &H00FFFFFF&
            Caption         =   "1"
            Height          =   255
            Index           =   1
            Left            =   3120
            TabIndex        =   273
            Top             =   5520
            Width           =   135
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "Page:"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Index           =   126
            Left            =   2460
            TabIndex        =   272
            Top             =   5520
            Width           =   495
         End
         Begin VB.Label Label17 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Batch Output Fields Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   177
            Top             =   135
            Width           =   2775
         End
         Begin VB.Line Line7 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   3
         Left            =   0
         TabIndex        =   167
         Top             =   915
         Width           =   6100
         Begin VB.Frame Frame15 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Commodity Database"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   855
            Left            =   240
            TabIndex        =   181
            Top             =   480
            Width           =   5655
            Begin VB.CheckBox chkUseCommodityDB 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Use Commodity Database"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1680
               TabIndex        =   30
               Top             =   360
               Width           =   2895
            End
         End
         Begin VB.Frame Frame2 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Who creates the Commercial Invoice?"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1215
            Index           =   0
            Left            =   240
            TabIndex        =   171
            Top             =   2940
            Width           =   5655
            Begin VB.OptionButton f113 
               BackColor       =   &H00FFFFFF&
               Caption         =   "FedEx"
               Height          =   255
               Left            =   3120
               TabIndex        =   35
               Top             =   300
               Width           =   1095
            End
            Begin VB.OptionButton optCustCI 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Customer"
               Height          =   255
               Left            =   1680
               TabIndex        =   34
               Top             =   300
               Width           =   1215
            End
            Begin VB.TextBox f538 
               Height          =   315
               Left            =   1680
               TabIndex        =   36
               Top             =   660
               Width           =   3495
            End
            Begin VB.Label lbl538 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "CI Prt Name:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   360
               TabIndex        =   172
               Top             =   720
               Width           =   1215
            End
         End
         Begin VB.Frame fraIRSEIN 
            BackColor       =   &H00FFFFFF&
            Caption         =   "IRS/EIN"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1155
            Left            =   240
            TabIndex        =   168
            Top             =   1500
            Width           =   5655
            Begin VB.TextBox txtIRSEIN 
               Height          =   315
               Left            =   1680
               TabIndex        =   31
               Top             =   240
               Width           =   2295
            End
            Begin VB.OptionButton f1352 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Sender EIN"
               Height          =   255
               Index           =   0
               Left            =   1680
               TabIndex        =   32
               Top             =   720
               Width           =   1335
            End
            Begin VB.OptionButton f1352 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Sender SSN"
               Height          =   255
               Index           =   1
               Left            =   3000
               TabIndex        =   33
               Top             =   720
               Width           =   1335
            End
            Begin VB.Label lblIRSEIN 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "IRS/EIN #:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   60
               TabIndex        =   170
               Top             =   300
               Width           =   1515
            End
            Begin VB.Label lbl1352 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Type:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   600
               TabIndex        =   169
               Top             =   720
               Width           =   975
            End
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   3
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   38
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   3
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   37
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Line Line3 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
         Begin VB.Label Label19 
            BackColor       =   &H00FFFFFF&
            Caption         =   "International Default Settings"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   173
            Top             =   135
            Width           =   2775
         End
      End
      Begin VB.Frame fraSetup 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame1"
         Height          =   6465
         Index           =   2
         Left            =   -74985
         TabIndex        =   148
         Top             =   915
         Width           =   6100
         Begin VB.Frame Frame4 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Scale Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1215
            Left            =   240
            TabIndex        =   165
            Top             =   3240
            Width           =   5655
            Begin VB.CheckBox chkScaleConnected 
               BackColor       =   &H80000009&
               Caption         =   "Toldeo Scale Connected"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1680
               TabIndex        =   26
               Top             =   240
               Width           =   2895
            End
            Begin VB.ComboBox cmbScalePort 
               Height          =   315
               ItemData        =   "frmSetup.frx":0EDB
               Left            =   1680
               List            =   "frmSetup.frx":0EEB
               TabIndex        =   27
               Top             =   720
               Width           =   1095
            End
            Begin VB.Label Label13 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Scale Port:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   480
               TabIndex        =   166
               Top             =   780
               Width           =   1095
            End
         End
         Begin VB.Frame Frame7 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   2595
            Left            =   240
            TabIndex        =   161
            Top             =   480
            Width           =   5655
            Begin VB.CheckBox chkUseInBatch 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Use Label Setup in Batch Processing"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1560
               TabIndex        =   25
               Top             =   2220
               Width           =   3795
            End
            Begin VB.TextBox txtMappedPath 
               Height          =   315
               Left            =   1560
               TabIndex        =   23
               Top             =   1440
               Width           =   3735
            End
            Begin VB.CheckBox chkCustomLabels 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Print Custom Labels"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   1560
               TabIndex        =   24
               Top             =   1860
               Width           =   2775
            End
            Begin VB.ComboBox f187 
               Height          =   315
               ItemData        =   "frmSetup.frx":0F07
               Left            =   1560
               List            =   "frmSetup.frx":0F20
               TabIndex        =   21
               Top             =   720
               Width           =   3735
            End
            Begin VB.ComboBox f1282 
               Height          =   315
               ItemData        =   "frmSetup.frx":0FE2
               Left            =   1560
               List            =   "frmSetup.frx":0FF2
               TabIndex        =   20
               Top             =   360
               Width           =   3735
            End
            Begin VB.TextBox f537 
               Height          =   315
               Left            =   1560
               TabIndex        =   22
               Top             =   1080
               Width           =   3735
            End
            Begin VB.Label lblMappedPath 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   " Mapped Path:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   120
               TabIndex        =   535
               Top             =   1500
               Width           =   1335
            End
            Begin VB.Label lblUNCPath 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "UNC/File Path:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   120
               TabIndex        =   164
               Top             =   1140
               Width           =   1335
            End
            Begin VB.Label lblThermalType 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Label Type:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   120
               TabIndex        =   163
               Top             =   780
               Width           =   1335
            End
            Begin VB.Label Label2 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Thermal Type:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   1
               Left            =   120
               TabIndex        =   162
               Top             =   420
               Width           =   1335
            End
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   1
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   28
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   1
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   29
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Line Line2 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
         Begin VB.Label Label12 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Peripheral Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   175
            Top             =   135
            Width           =   2775
         End
      End
      Begin VB.Frame fraSetup 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   6465
         Index           =   0
         Left            =   -74985
         TabIndex        =   147
         Top             =   915
         Width           =   6100
         Begin VB.Frame Frame5 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Connection Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   1155
            Left            =   240
            TabIndex        =   158
            Top             =   4680
            Width           =   5655
            Begin VB.CommandButton cmdDeleteIP 
               Appearance      =   0  'Flat
               BackColor       =   &H00E0E0E0&
               Caption         =   "Delete"
               Height          =   315
               Left            =   3240
               MaskColor       =   &H0080C0FF&
               Style           =   1  'Graphical
               TabIndex        =   17
               Top             =   660
               UseMaskColor    =   -1  'True
               Width           =   1215
            End
            Begin VB.CheckBox chkConnectOnStartup 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Connect to FSMS on startup"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   2400
               TabIndex        =   15
               Top             =   300
               Width           =   2895
            End
            Begin VB.TextBox txtFXRSPort 
               Height          =   315
               Left            =   1320
               TabIndex        =   14
               Top             =   300
               Width           =   855
            End
            Begin VB.ComboBox cboFXRSIP 
               Height          =   315
               Left            =   1320
               TabIndex        =   16
               Top             =   660
               Width           =   1815
            End
            Begin VB.Label Label10 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "FSMS IP:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   360
               TabIndex        =   160
               Top             =   720
               Width           =   855
            End
            Begin VB.Label Label11 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "FSMS Port:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   240
               TabIndex        =   159
               Top             =   360
               Width           =   975
            End
         End
         Begin VB.Frame Frame6 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Location Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   3975
            Left            =   240
            TabIndex        =   149
            Top             =   480
            Width           =   5655
            Begin VB.ComboBox f117 
               Height          =   315
               Left            =   1320
               TabIndex        =   10
               Top             =   2880
               Width           =   3975
            End
            Begin VB.CheckBox chkIPD 
               BackColor       =   &H00FFFFFF&
               Caption         =   "IPD Acct"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   315
               Left            =   1320
               TabIndex        =   13
               Top             =   3600
               Width           =   1275
            End
            Begin VB.CommandButton cmdDelete 
               Appearance      =   0  'Flat
               BackColor       =   &H00E0E0E0&
               Caption         =   "Delete"
               Height          =   315
               Left            =   4080
               MaskColor       =   &H0080C0FF&
               Style           =   1  'Graphical
               TabIndex        =   1
               Top             =   360
               UseMaskColor    =   -1  'True
               Width           =   1215
            End
            Begin VB.TextBox f1118 
               Height          =   315
               Left            =   4320
               TabIndex        =   12
               ToolTipText     =   "Shipper Signature Release #"
               Top             =   3240
               Width           =   975
            End
            Begin VB.ComboBox f498 
               Height          =   315
               Left            =   4080
               TabIndex        =   3
               Top             =   720
               Width           =   1215
            End
            Begin VB.ComboBox cboName 
               Height          =   315
               Left            =   1320
               TabIndex        =   0
               Top             =   360
               Width           =   2655
            End
            Begin VB.ComboBox f8 
               Height          =   315
               Left            =   1320
               TabIndex        =   8
               Top             =   2520
               Width           =   2295
            End
            Begin VB.TextBox f9 
               Height          =   315
               Left            =   4320
               TabIndex        =   9
               Top             =   2520
               Width           =   975
            End
            Begin VB.TextBox f183 
               Height          =   315
               Left            =   1320
               TabIndex        =   11
               Top             =   3240
               Width           =   2055
            End
            Begin VB.TextBox f32 
               Height          =   315
               Left            =   1320
               TabIndex        =   4
               Top             =   1080
               Width           =   3975
            End
            Begin VB.TextBox f4 
               Height          =   315
               Left            =   1320
               TabIndex        =   5
               Top             =   1440
               Width           =   3975
            End
            Begin VB.TextBox f5 
               Height          =   315
               Left            =   1320
               TabIndex        =   6
               Top             =   1800
               Width           =   3975
            End
            Begin VB.TextBox f7 
               Height          =   315
               Left            =   1320
               TabIndex        =   7
               Top             =   2160
               Width           =   3975
            End
            Begin VB.ComboBox f10 
               Height          =   315
               Left            =   1320
               TabIndex        =   2
               Top             =   720
               Width           =   1935
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Country:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   229
               Left            =   240
               TabIndex        =   822
               Top             =   2880
               Width           =   975
            End
            Begin VB.Label Label40 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Sig Rel #:"
               BeginProperty Font 
                  Name            =   "Tahoma"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   3360
               TabIndex        =   443
               Top             =   3300
               Width           =   855
            End
            Begin VB.Label Label46 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Sys#:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   3360
               TabIndex        =   398
               Top             =   780
               Width           =   615
            End
            Begin VB.Label Label45 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Name:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   360
               TabIndex        =   397
               Top             =   420
               Width           =   855
            End
            Begin VB.Label Label15 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "State:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   600
               TabIndex        =   157
               Top             =   2580
               Width           =   615
            End
            Begin VB.Label Label16 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Zip:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   3720
               TabIndex        =   156
               Top             =   2580
               Width           =   495
            End
            Begin VB.Label Label1 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Phone:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   1
               Left            =   600
               TabIndex        =   155
               Top             =   3300
               Width           =   615
            End
            Begin VB.Label Label7 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "City:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   720
               TabIndex        =   154
               Top             =   2220
               Width           =   495
            End
            Begin VB.Label Label6 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Address:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   1
               Left            =   360
               TabIndex        =   153
               Top             =   1860
               Width           =   855
            End
            Begin VB.Label Label5 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Company:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   240
               TabIndex        =   152
               Top             =   1500
               Width           =   975
            End
            Begin VB.Label Label4 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Contact:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   360
               TabIndex        =   151
               Top             =   1140
               Width           =   855
            End
            Begin VB.Label Label8 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               Caption         =   "Acct #:"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   360
               TabIndex        =   150
               Top             =   780
               Width           =   855
            End
         End
         Begin VB.CommandButton cmdSave 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Save"
            Height          =   315
            Index           =   2
            Left            =   1440
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   18
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.CommandButton cmdDone 
            Appearance      =   0  'Flat
            BackColor       =   &H00E0E0E0&
            Caption         =   "Close"
            Height          =   315
            Index           =   2
            Left            =   3480
            MaskColor       =   &H0080C0FF&
            Style           =   1  'Graphical
            TabIndex        =   19
            Top             =   6000
            UseMaskColor    =   -1  'True
            Width           =   1215
         End
         Begin VB.Line Line1 
            BorderColor     =   &H000080FF&
            BorderWidth     =   2
            X1              =   240
            X2              =   5880
            Y1              =   120
            Y2              =   120
         End
         Begin VB.Label Label9 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Server Setup"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Left            =   240
            TabIndex        =   174
            Top             =   135
            Width           =   2775
         End
      End
   End
End
Attribute VB_Name = "frmSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    
Private Sub cboAddrID_Click()
    Call LoadAltReturnAddrForm("AddrID", cboAddrID)
End Sub

'---------------------------------------------------------------------------------------
' Procedure : cboButtons_Click()
' DateTime  : 7/1/2004
' Purpose   : Makes visible the Disable checkbox with the same index as the ListIndex of
'             cboButtons.
'---------------------------------------------------------------------------------------
'
Private Sub cboButtons_Click()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cboButtons_Click"
    
    For i = 0 To chkDisableButton.UBound
        chkDisableButton(i).Visible = IIf(cboButtons.ListIndex = i, True, False)
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cboFXRSIP_LostFocus()
' DateTime  : 9/8/2004
' Purpose   : Adds a server IP if it doesn't already exist
'---------------------------------------------------------------------------------------
'
Private Sub cboFXRSIP_LostFocus()
    Call AddFXRSIP(cboFXRSIP)
    Call LoadIPCombo(cboFXRSIP)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cboName_Click()
' DateTime  : 6/10/2004
' Purpose   : If [Create New] selected in cboName on Server tab clear Server
'             tab, else call routine to load selected Location Name.
'---------------------------------------------------------------------------------------
'
Private Sub cboName_Click()
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cboName_Click"
    
    If cboName = "[Create New]" Then
        cboName = ""
        f498 = ""
        f10 = ""
        f32 = ""
        f4 = ""
        f5 = ""
        f7 = ""
        f8 = ""
        f9 = ""
        f183 = ""
        f1118 = ""
        cmdDelete.Enabled = False
    Else
        Call LoadMetersForm("Name", cboName)
        Call SetUSCAFields
        Call AssignSetupToGlobalVars
        cmdDelete.Enabled = True
    End If
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cboProfileName_Click()
' DateTime  : 6/9/2004
' Purpose   : If [Create New] selected in cboProfile on Batch Defaults tab clear batch
'             tab, else call routine to load selected profile.
'---------------------------------------------------------------------------------------
'
Private Sub cboProfileName_Click()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cboProfileName_Click"
    
    If cboProfileName = "[Create New]" Then
        txtFilesPath = ""
        For i = 0 To txtFieldNum.UBound
            txtFieldNum(i) = ""
            txtValue(i) = ""
        Next
        For i = 0 To txtInputFld.UBound
            txtInputFld(i) = ""
            txtOutputFld(i) = ""
        Next
        cboDelimIn.ListIndex = -1
        cboQualIn.ListIndex = -1
        cboDelimOut.ListIndex = -1
        cboQualOut.ListIndex = -1
    Else
        Call LoadProfile(cboProfileName)
    End If
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cboTabs_Click()
' DateTime  : 6/29/2004
' Purpose   : Service Locks tab Tabs combo. When a tab is selected from the combo the
'             corresponding Disable checkbox and frame is shown.
'---------------------------------------------------------------------------------------
'
Private Sub cboTabs_Click()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cboTabs_Click"
    
    For i = 0 To chkDisableTab.UBound
        chkDisableTab(i).Visible = IIf(cboTabs.ListIndex = i, True, False)
        fraTabs(i).Visible = IIf(cboTabs.ListIndex = i, True, False)
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkCustomButtons_Click()
' DateTime  : 6/9/2004
' Purpose   : Enables/disables components on Rating tab if/if not adding handling charge.
'---------------------------------------------------------------------------------------
'
Private Sub chkAddHndlChg_Click()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkAddHndlChg_Click"
    
    If chkAddHndlChg.Value = 1 Then
        chkBySvc.Enabled = True
        f1588(1).Enabled = True
        f1588(2).Enabled = True
        f1588(3).Enabled = True
        If chkBySvc = 1 Then
            For i = 1 To 6
                lblSign(i).Enabled = True
                f1595(i).Enabled = True
                lblSvc(i).Enabled = True
            Next i
        Else
            lblSign(1).Enabled = True
            f1595(1).Enabled = True
            lblSvc(1).Enabled = True
        End If
    Else
        chkBySvc.Enabled = False
        f1588(1).Enabled = False
        f1588(2).Enabled = False
        f1588(3).Enabled = False
        For i = 1 To 6
            lblSign(i).Enabled = False
            f1595(i).Enabled = False
            lblSvc(i).Enabled = False
        Next i
    End If

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkBySvc_Click()
' DateTime  : 6/9/2004
' Purpose   : Enables/disbles the services on the Rating tab. If defining handling chgs
'             by service all are enabled. If not only the first box is enabled.
'---------------------------------------------------------------------------------------
'
Private Sub chkBySvc_Click()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkBySvc_Click"
    
    If chkBySvc = 1 And chkAddHndlChg = 1 Then
        For i = 2 To 6
            lblSign(i).Enabled = True
            f1595(i).Enabled = True
            lblSvc(i).Enabled = True
        Next i
    Else
        For i = 2 To 6
            lblSign(i).Enabled = False
            f1595(i).Enabled = False
            lblSvc(i).Enabled = False
        Next i
    End If
    
    If chkBySvc.Value = 1 Then
        lblSvc(1).Caption = "PO"
    Else
        lblSvc(1).Caption = "ALL"
    End If

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkCustomButtons_Click()
' DateTime  : 6/9/2004
' Purpose   : Sets Custom buttons Visible property
'---------------------------------------------------------------------------------------
'
Private Sub chkCustomButtons_Click(Index As Integer)
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkCustomButtons_Click"
    
    If chkCustomButtons(Index) = 1 Then
        frmShip.cmdCustom(Index).Visible = True
    Else
        frmShip.cmdCustom(Index).Visible = False
    End If
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub

Private Sub chkCustomLabels_Click()
    If chkCustomLabels = 1 Then
        lblMappedPath.Enabled = True
        txtMappedPath.Enabled = True
    Else
        lblMappedPath.Enabled = False
        txtMappedPath.Enabled = False
    End If
End Sub

'---------------------------------------------------------------------------------------
' Procedure : chkDisableButton_Click()
' DateTime  : 7/1/2004
' Purpose   : Call SetMenuButton passing the Index and whether or not to enable the button.
'---------------------------------------------------------------------------------------
'
Private Sub chkDisableButton_Click(Index As Integer)
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkDisableButton_Click"
    
    With frmShip
        If Index = 3 Or Index = 4 Then
            Call .SetTrackButtons
        Else
            Call .SSTab1_Click(.SSTab1.Tab)
        End If
    End With
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkDisableTab_Click()
' DateTime  : 6/29/2004
' Purpose   : Admin tab Disable check box. If checked the corresponding tab on frmShip is
'             disabled and the frame on the Admin tab is disabled, else both are enabled.
'---------------------------------------------------------------------------------------
'
Private Sub chkDisableTab_Click(Index As Integer)
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkDisableTab_Click"
    
    frmShip.SSTab1.TabVisible(Index) = IIf(chkDisableTab(Index) = 1, False, True)
    fraTabs(Index).Enabled = IIf(chkDisableTab(Index) = 1, False, True)

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkScaleConnected_Click()
' DateTime  : 2/18/2004
' Purpose   : Scale Connected chkbox. If checked enable Port and Settings fields.
'---------------------------------------------------------------------------------------
'
Private Sub chkScaleConnected_Click()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkScaleConnected_Click"
    
    cmbScalePort.Enabled = IIf(chkScaleConnected = 1, True, False)
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkSelectAllIntl_Click()
' DateTime  : 7/1/2004
' Purpose   : Checks/unchecks all checkboxes on Intl frame on Program Locks tab
'---------------------------------------------------------------------------------------
'
Private Sub chkSelectAllIntl_Click()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkSelectAllIntl_Click"
    
    chkSelectAllIntl.Caption = IIf(chkSelectAllIntl = 1, "Deselect All", "Select All")
    For i = 0 To chkIntlTab.UBound
        chkIntlTab(i) = IIf(chkSelectAllIntl = 1, 1, 0)
    Next

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkSelectAllQuote_Click()
' DateTime  : 7/1/2004
' Purpose   : Checks/unchecks all checkboxes on Quote frame on Program Locks tab
'---------------------------------------------------------------------------------------
'
Private Sub chkSelectAllQuote_Click()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkSelectAllQuote_Click"
    
    chkSelectAllQuote.Caption = IIf(chkSelectAllQuote = 1, "Deselect All", "Select All")
    For i = 0 To chkQuoteTab.UBound
        chkQuoteTab(i) = IIf(chkSelectAllQuote = 1, 1, 0)
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkSelectAllShip_Click()
' DateTime  : 7/1/2004
' Purpose   : Checks/unchecks all checkboxes on Ship and Special Svc frames on Program Locks tab
'---------------------------------------------------------------------------------------
'
Private Sub chkSelectAllShip_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkSelectAllShip_Click"
    
    If Index = 1 Then
        chkSelectAllShip(1).Caption = IIf(chkSelectAllShip(1) = 1, "Deselect All", "Select All")
        For i = 0 To chkShipTab.UBound
            chkShipTab(i) = IIf(chkSelectAllShip(1) = 1, 1, 0)
        Next
    ElseIf Index = 2 Then
        chkSelectAllShip(2).Caption = IIf(chkSelectAllShip(2) = 1, "Deselect All", "Select All")
        For i = 0 To 24
            chkSpecialSvcs(i) = IIf(chkSelectAllShip(2) = 1, 1, 0)
        Next
    Else
        chkSelectAllShip(3).Caption = IIf(chkSelectAllShip(3) = 1, "Deselect All", "Select All")
        For i = 25 To 34
            chkSpecialSvcs(i) = IIf(chkSelectAllShip(3) = 1, 1, 0)
        Next
    End If
            
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : chkUseCommodityDB_Click(index As Integer)
' DateTime  : 4/8/2004
' Purpose   : Enables Commodity combo and Import Commodities if checked
'---------------------------------------------------------------------------------------
'
Private Sub chkUseCommodityDB_Click()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.chkUseCommodityDB_Click"
    
    With frmShip
        If chkUseCommodityDB = 1 Then
            Call .LoadCommodities
            .mnuCommodities.Enabled = True
            .cboCommodityID.Enabled = True
        Else
            .mnuCommodities.Enabled = False
            .cboCommodityID.Enabled = False
        End If
    End With
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdDelete_Click()
' DateTime  : 7/7/2004
' Purpose   : Delete button on Server tab. Deletes the currently selected location.
'---------------------------------------------------------------------------------------
'
Private Sub cmdDelete_Click()
    Dim ret As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cmdDelete_Click"
    
    If cboName <> "" Then
        ret = MsgBox("Are you sure you wish to delete Location " & cboName & "?", vbYesNo, "Confirm Location Delete")
        If ret = vbYes Then
            If DeleteMeter(cboName) > 0 Then
                Call LoadNameCombo(cboName, "")
                cboName.ListIndex = 1
                Call LoadNameCombo(frmClose.cboName2, cboName)
                Call LoadNameCombo(frmShip.cboLocationName(0), cboName)
                Call LoadNameCombo(frmShip.cboLocationName(1), cboName)
                Call LoadNameCombo(frmShip.cboLocationName(2), cboName)
                Call LoadMetersCombo(f498, f498)
                Call LoadMetersCombo(frmClose.f498, f498)
                Call LoadAcctNumCombo(f10, f10)
                Call LoadAcctNumCombo(frmClose.f10, f10)
                Call SaveRegValues
            Else
                MsgBox "Location " & cboName & " not found.", vbExclamation, "Location Delete Error"
            End If
        End If
    End If

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub

'---------------------------------------------------------------------------------------
' Procedure : cmdDeleteBatchProfile_Click()
' DateTime  : 7/27/2004
' Purpose   : Delete button on Batch Defaults tab. Deletes the currently selected profile.
'---------------------------------------------------------------------------------------
'
Private Sub cmdDeleteBatchProfile_Click()
    Dim ret As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cmdDeleteBatchProfile_Click"
    
    If cboProfileName <> "" Then
        ret = MsgBox("Are you sure you wish to delete Profile " & cboProfileName & "?", vbYesNo, "Confirm Profile Delete")
        If ret = vbYes Then
            If DeleteProfile(cboProfileName) > 0 Then
                Call LoadProfileCombo(cboProfileName, "")
                If cboProfileName.ListCount > 1 Then
                    cboProfileName.ListIndex = 1
                    Call LoadProfileCombo(frmShip.cboBatchProfile, cboProfileName)
                Else
                    cboProfileName.ListIndex = -1
                    Call LoadProfileCombo(frmShip.cboBatchProfile, "")
                End If
                Call LoadProfile(cboProfileName)
                Call SaveRegValues
            Else
                MsgBox "Profile " & cboName & " not found.", vbExclamation, "Profile Delete Error"
            End If
        End If
    End If

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation

End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdDeleteIP_Click(index As Integer)
' DateTime  : 9/8/2004
' Purpose   : Delete button clicked by FXRSIP. Calls sub to delete an FXRSIP.
'---------------------------------------------------------------------------------------
'
Private Sub cmdDeleteIP_Click()
    Dim ret As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cmdDelete_Click"
    
    If cboFXRSIP <> "" Then
        ret = MsgBox("Are you sure you wish to delete Location " & cboFXRSIP & "?", vbYesNo, "Confirm Location Delete")
        If ret = vbYes Then
            If DeleteFXRSIP(cboFXRSIP) > 0 Then
                Call LoadIPCombo(cboFXRSIP)
                cboFXRSIP.ListIndex = 0
            Else
                MsgBox "Location " & cboFXRSIP & " not found.", vbExclamation, "Location Delete Error"
            End If
        End If
    End If

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdDone_Click(index As Integer)
' DateTime  : 2/18/2004
' Purpose   : Done button clicked, hide form.
'---------------------------------------------------------------------------------------
'
Private Sub cmdDone_Click(Index As Integer)
    Me.Hide
    frmShip.SetFocus
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdSave_Click(index As Integer)
' DateTime  : 2/18/2004
' Purpose   : Save button clicked, Add Meter, Save Registry values and assign values to
'             global variables.
'---------------------------------------------------------------------------------------
'
Public Sub cmdSave_Click(Index As Integer)
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.cmdSave_Click"
    
    Call SaveMeter
    Call LoadNameCombo(cboName, cboName)
    Call LoadNameCombo(frmClose.cboName2, cboName)
    Call LoadNameCombo(frmShip.cboLocationName(0), cboName)
    Call LoadNameCombo(frmShip.cboLocationName(1), cboName)
    Call LoadNameCombo(frmShip.cboLocationName(2), cboName)
    Call frmShip.ShowSpecialSvcs
    Call SaveProfile
    Call LoadProfileCombo(frmShip.cboBatchProfile, cboProfileName)
    Call LoadProfileCombo(cboProfileName, cboProfileName)
    Call LoadMetersCombo(f498, f498)
    Call LoadMetersCombo(frmClose.f498, f498)
    Call LoadAcctNumCombo(frmClose.f10, f10)
    Call LoadAcctNumCombo(f10, f10)
    Call SaveRegValues
    Call SetServiceQuoteType
    Call SetTabLocks
    Call SetUSCAFields
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SaveRegValues()
' DateTime  : 2/18/2004
' Purpose   : Save values to registry.
' Call from : cmdSave_Click
'---------------------------------------------------------------------------------------
'
Public Sub SaveRegValues()
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.SaveRegValues"
    
    With g_clsReg
        'Meter
        .SetRegistryValue "Name", cboName, REG_SZ
        'Network and Scale
        .SetRegistryValue "ConnectOnStartup", chkConnectOnStartup, REG_SZ
        .SetRegistryValue "FXRSIP", cboFXRSIP, REG_SZ
        .SetRegistryValue "FXRSPort", txtFXRSPort, REG_SZ
        'Peripherals
        .SetRegistryValue "LabelType", f1282.ListIndex, REG_SZ
        .SetRegistryValue "ThermalType", f187.ListIndex, REG_SZ
        .SetRegistryValue "PrinterUNC", f537, REG_SZ
        .SetRegistryValue "MappedPath", txtMappedPath, REG_SZ
        .SetRegistryValue "CustomLabels", chkCustomLabels, REG_SZ
        .SetRegistryValue "UseInBatch", chkUseInBatch, REG_SZ
        .SetRegistryValue "ScaleConnected", chkScaleConnected, REG_SZ
        .SetRegistryValue "ScalePort", cmbScalePort.ListIndex, REG_SZ
        'Intl
        If f113 Then
            .SetRegistryValue "PrintCI", "Y", REG_SZ
        Else
            .SetRegistryValue "PrintCI", "", REG_SZ
        End If
        
        .SetRegistryValue "IRSEIN", txtIRSEIN, REG_SZ

        If f1352(0) Then
            .SetRegistryValue "IRS/EINType", "SE", REG_SZ
        ElseIf f1352(1) Then
            .SetRegistryValue "IRS/EINType", "SS", REG_SZ
        End If
        .SetRegistryValue "CIPrinterUNC", f538, REG_SZ
        .SetRegistryValue "UseCommodityDB", chkUseCommodityDB, REG_SZ
        'Batch tabs
        .SetRegistryValue "ProfileName", cboProfileName, REG_SZ
        .SetRegistryValue "AddInputToOutput", chkAddInputToOutput, REG_SZ
        'Rates tab
        .SetRegistryValue "AddHndlChg", chkAddHndlChg, REG_SZ
        .SetRegistryValue "BySvc", chkBySvc, REG_SZ
        .SetRegistryValue "Type$1", f1588(1), REG_SZ
        .SetRegistryValue "Type%2", f1588(2), REG_SZ
        .SetRegistryValue "Type%3", f1588(3), REG_SZ
        .SetRegistryValue "PerPackage", f1606(0), REG_SZ
        .SetRegistryValue "PerShipment", f1606(1), REG_SZ
        .SetRegistryValue "ListandActual", optListandActual, REG_SZ
        .SetRegistryValue "ActualOnly", optActual, REG_SZ
        .SetRegistryValue "ListOnly", optList, REG_SZ
        For i = 1 To 6
            .SetRegistryValue "f1595" & Str(i), f1595(i), REG_SZ
        Next i
        'Custom Buttons tab
        For i = 1 To 3
            .SetRegistryValue "CustomButtons" & Str(i), chkCustomButtons(i), REG_SZ
            .SetRegistryValue "ButtonCaption" & Str(i), txtButtonCaption(i), REG_SZ
            .SetRegistryValue "ButtonColor" & Str(i), txtButtonColor(i), REG_SZ
        Next
        Call SetCustomButtons
        
       'Service Conversion tab
        .SetRegistryValue "ConvertSvcCodes", chkConvertSvcCodes, REG_SZ
        For i = 0 To txtCustSvcCode.UBound
            .SetRegistryValue "CustSvcCode" & Str(i), txtCustSvcCode(i), REG_SZ
        Next
        'Program Locks tab
        'Disable Tab checkbox
        For i = 0 To chkDisableTab.UBound
            .SetRegistryValue "DisableTab" & Str(i), chkDisableTab(i), REG_SZ
        Next
        'Disable buttons checkbox
        For i = 0 To chkDisableButton.UBound
            .SetRegistryValue "DisableButton" & Str(i), chkDisableButton(i), REG_SZ
        Next
        If chkDisableTab(0) = 0 Then
            'Ship Fields to Lock
            For i = 0 To chkShipTab.UBound
                .SetRegistryValue "ShipTab" & Str(i), chkShipTab(i), REG_SZ
            Next
            'Special Svcs Fields to Lock
            For i = 0 To chkSpecialSvcs.UBound
                .SetRegistryValue "SpecialSvcs" & Str(i), chkSpecialSvcs(i), REG_SZ
            Next
        End If
        If chkDisableTab(1) = 0 Then
            'Intl Fields to Lock
            For i = 0 To chkIntlTab.UBound
                .SetRegistryValue "IntlTab" & Str(i), chkIntlTab(i), REG_SZ
            Next
        End If
        If chkDisableTab(2) = 0 Then
            'Batch Fields to Lock
            For i = 0 To chkBatchTab.UBound
                .SetRegistryValue "BatchTab" & Str(i), chkBatchTab(i), REG_SZ
            Next
        End If
        If chkDisableTab(3) = 0 Then
            'Quote Fields to Lock
            For i = 0 To chkQuoteTab.UBound
                .SetRegistryValue "QuoteTab" & Str(i), chkQuoteTab(i), REG_SZ
            Next
        End If
        If chkDisableTab(4) = 0 Then
            'History Fields to Lock
            For i = 0 To chkHistoryTab.UBound
                .SetRegistryValue "HistoryTab" & Str(i), chkHistoryTab(i), REG_SZ
            Next
        End If
        'Password tab
        .SetRegistryValue "AdminPswd", txtAdminPswd, REG_SZ
        .SetRegistryValue "Level2Pswd", txtLevel2Pswd, REG_SZ
        For i = 0 To chkLevel2Access.UBound
            .SetRegistryValue "Level2Access" & Str(i), chkLevel2Access(i), REG_SZ
        Next
    
        'Alt Return Addr
        .SetRegistryValue "AddrID", cboAddrID, REG_SZ
        .SetRegistryValue "AltPrintFlag", f1586, REG_SZ
    
    End With
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AssignSetupToGlobalVars()
' DateTime  : 2/18/2004
' Purpose   : Assign fields to global vars.
' Call from : cmdSave_Click, f10_Click(), Form_Load
'---------------------------------------------------------------------------------------
'
Public Sub AssignSetupToGlobalVars()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.AssignSetupToGlobalVars"
    
    g_str32 = f32
    g_str4 = f4
    g_str5 = f5
    g_str7 = f7
    g_str8 = Left(f8, 2)
    g_str9 = RemoveSpecial(f9)
    g_str183 = f183
    g_str117 = Left(f117, 2)
    g_str10 = f10
    g_str498 = f498
    g_str1282 = Left(f1282, 1)
    'Added 9/30 send a "Y" if 1282 = "B" to get PDF417 returned
    g_str1660 = IIf(g_str1282 = "B", "Y", "")
    'Added 9/13 only send 537 if not doing custom labels
    g_str537 = IIf(chkCustomLabels = 0, f537, "")
    'Added 9/30 to Save UNC to global var
    g_strUNCCustomLabels = IIf(chkCustomLabels = 1, f537, "")
    
    g_str187 = Left(f187, 3)
    'Changed 8/13 only allow Shipped to file SED
    g_str1349 = "S"
    
    'Commercial invoice
    On Error Resume Next
    If f113 Then
        g_str113 = "Y"
        frmShip.f113.Value = 1
        'frmShip.fraCI.Enabled = True
        For i = 0 To frmShip.lblCI.UBound
            frmShip.lblCI(i).Enabled = True
        Next
    Else
        g_str113 = ""
        'Disable CI fields
        frmShip.f113.Value = 0
        'frmShip.fraCI.Enabled = False
        For i = 0 To frmShip.lblCI.UBound
            frmShip.lblCI(i).Enabled = False
        Next
    End If
    On Error GoTo EH
    
    
    'Modified 3/3/05 to send either IRS/EIN for US Export or Permit # for CA Export.
    If Left(f117, 2) = "US" Then
        If f1352(0) Then
            g_str1352 = "E"
            g_str1139 = txtIRSEIN
        ElseIf f1352(1) Then
            g_str1352 = "S"
            g_str1139 = txtIRSEIN
        End If
        g_str1653 = ""
    Else
        g_str1653 = txtIRSEIN
        g_str1352 = ""
        g_str1139 = ""
    End If
    
    g_str538 = f538
    
    'Alt Return Addr
    g_str1586 = IIf(f1586 = 1, "Y", "")
    g_str1485 = f1485
    g_str1486 = f1486
    g_str1487 = f1487
    g_str1488 = f1488
    g_str1489 = f1489
    g_str1490 = Left(f1490, 2)
    g_str1491 = f1491
    g_str1492 = f1492
    g_str1585 = Left(f1585, 2)
    
    'Added 9/30 to save Mapped path to global var
    g_strMappedPath = txtMappedPath
    
        
    'Added 11/16 to add label printing fields to batch processing
    g_blnUseLabelFldsInBatch = IIf(chkUseInBatch = 1, True, False)

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f113_Click()
' DateTime  : 2/18/2004
' Purpose   : FedEx selected in Who Prints CI. If selected enable CI Prt UNC field, set
'             set Total Customs Value label to regular font (not required) and call
'             routine to set Unit of Measure label to bold (required).
'---------------------------------------------------------------------------------------
'
Private Sub f113_Click()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.f113_Click"
    
    If f113 Then
        f538.Enabled = True
        lbl538.Enabled = True
        frmShip.lblCommodity(6).FontBold = False
        frmIPDAdd.f1592.Enabled = False
    Else
        f538.Enabled = False
        lbl538.Enabled = False
    End If
    Call SetUnitOfMeasureLabel
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f117_Change()
' DateTime  : 1/27/2005
' Purpose   : Set the Country field to show entire text
'---------------------------------------------------------------------------------------
'
Private Sub f117_Change()
    If Len(f117) >= 2 Then
        Call SetComboSelection(f117, f117)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f117_Click()
' DateTime  : 1/27/2005
' Purpose   : If US load states, if CA load provinces, else clear state combo
'---------------------------------------------------------------------------------------
'
Private Sub f117_Click()
    
    With frmShip
        If Left(f117, 2) = "US" Then
            Call LoadStates(f8, f8)
            Call LoadStates(f1490, f1490)
            ' 2007-08-20, JFW, Should be part of modODBC
            ' .f68 = "USD"
            ' .f1090 = "USD"
            ' 2005-08-18, JFW, Why default destination to shipper
            ' .f50.ListIndex = 180
            .f50 = Left(g_clsReg.GetRegistryValue("RecipientCountry", "US"), 2)
            If .f50.ListIndex = -1 Then .f50.ListIndex = 180
        ElseIf Left(f117, 2) = "CA" Then
            Call LoadProvinces(f8, f8)
            Call LoadProvinces(f1490, f1490)
            ' 2007-08-20, JFW, Should be part of modODBC
            ' .f68 = "CAD"
            ' .f1090 = "CAD"
            ' 2005-08-18, JFW, Why default destination to shipper
            ' .f50.ListIndex = 31
            .f50 = Left(g_clsReg.GetRegistryValue("RecipientCountry", "CA"), 2)
            If .f50.ListIndex = -1 Then .f50.ListIndex = 31
        Else
            f8.Clear
        End If
        f1585 = f117
    End With

End Sub

''---------------------------------------------------------------------------------------
'' Procedure : f1282_Click()
'' DateTime  : 2/18/2004
'' Purpose   : Label Type combo. Enable/diable fields depending upon label type selected.
''---------------------------------------------------------------------------------------
''
'Private Sub f1282_Click()
'    On Error GoTo EH
'    g_strErrorLocation = "frmSetup.f1282_Click"
'
'    Select Case Left(f1282, 1)
'        Case "N"
'            f187.Enabled = False
'            f537.Enabled = False
'            lblThermalType.Enabled = False
'            lblUNCPath.Enabled = False
'        Case "L"
'            f187.Enabled = False
'            f537.Enabled = True
'            lblThermalType.Enabled = False
'            lblUNCPath.Enabled = True
'        Case Else
'            f187.Enabled = True
'            f537.Enabled = True
'            lblThermalType.Enabled = True
'            lblUNCPath.Enabled = True
'    End Select
'
'    Exit Sub
'
'EH:
'    MsgBox Err.Description, vbCritical, g_strErrorLocation
'
'End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1490_Change()
' DateTime  : 2/2/2005
' Purpose   : Set the Country field to show entire text
'---------------------------------------------------------------------------------------
'
Private Sub f1490_Change()
    On Error GoTo EH
    g_strErrorLocation = "frmShip:f1490_Change"

    If Len(f1490) >= 2 Then
        Call SetComboSelection(f1490, f1490)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1585_Change()
' DateTime  : 1/27/2005
' Purpose   : Set the Country field to show entire text
'---------------------------------------------------------------------------------------
'
Private Sub f1585_Change()
    On Error GoTo EH
    g_strErrorLocation = "frmShip:f1490_Change"
    
    If Len(f1585) >= 2 Then
        Call SetComboSelection(f1585, f1585)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation

End Sub

'---------------------------------------------------------------------------------------
' Procedure : f183_Change()
' DateTime  : 2/18/2004
' Purpose   : Shipper phone # is numeric with max length of 10.
'---------------------------------------------------------------------------------------
'
Private Sub f183_Change()
    Call NumericOnly(f183, False)
    Call CheckLength(f183, 10)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f10_Change()
' DateTime  : 2/18/2004
' Purpose   : Acct# field is numeric only
'---------------------------------------------------------------------------------------
'
Private Sub f10_Change()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.f10_Change"
    
    Call NumericOnly(f10, False)
    If Len(f10) = 9 Then
        Call LoadMetersForm(f10.name, f10)
        Call SetUSCAFields
        Call AssignSetupToGlobalVars
    End If
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f10_Click()
' DateTime  : 6/10/2004
' Purpose   : Load Acct info and assign data to global vars, and set current location on
'             Ship form.
'---------------------------------------------------------------------------------------
'
Private Sub f10_Click()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.f10_Click"
    
    Call LoadMetersForm(f10.name, f10)
    Call SetUSCAFields
    Call AssignSetupToGlobalVars
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub

Private Sub f498_Change()
    Call NumericOnly(f498, False)
End Sub

'---------------------------------------------------------------------------------------
' Procedure : f498_Click()
' DateTime  : 6/10/2004
' Purpose   : Load Acct info and assign data to global vars, and set current location on
'             Ship form.
'---------------------------------------------------------------------------------------
'
Private Sub f498_Click()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.f498_Click"
    
    Call LoadMetersForm(f498.name, f498)
    Call SetUSCAFields
    Call AssignSetupToGlobalVars
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f8_Change()
' DateTime  : 12/9/2004
' Purpose   : Call SetComboSelection to show full state text
'---------------------------------------------------------------------------------------
'
Private Sub f8_Change()
    If Len(f8) = 2 Then
        Call SetComboSelection(f8, f8)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_KeyDown()
' DateTime  : 2/17/2005
' Purpose   : Enter key pressed sends a TAB to move to next field
'---------------------------------------------------------------------------------------
'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Not TypeOf Me.ActiveControl Is CommandButton Then
        If Shift = 0 And KeyCode = 13 Then
            SendKeys "{TAB}"
        End If
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Load()
' DateTime  : 2/18/2004
' Purpose   : When form is loaded load State combo, get regsitry values and assign data
'             to global vars.
'---------------------------------------------------------------------------------------
'
Private Sub Form_Load()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.Form_Load"
    
    'Initialize state combo box
    Call LoadStates(f8)
    Call LoadStates(f1490)
    Call LoadCountries(f117)
    Call LoadCountries(f1585)
    
    'Load Batch Combo boxes
    cboDelimIn.AddItem "Comma"
    cboDelimIn.AddItem "Tab"
    cboDelimIn.AddItem "Pipe"
    cboDelimIn.AddItem "Tilde"
    cboDelimOut.AddItem "Comma"
    cboDelimOut.AddItem "Tab"
    cboDelimOut.AddItem "Pipe"
    cboDelimOut.AddItem "Tilde"
    cboQualIn.AddItem "None"
    cboQualIn.AddItem Chr(34)
    cboQualIn.AddItem "'"
    cboQualOut.AddItem "None"
    cboQualOut.AddItem Chr(34)
    cboQualOut.AddItem "'"
    
    'Get Saved settings
    Call LoadAddrIDCombo(cboAddrID, cboAddrID)
    Call SetUSCAFields
    Call LoadProfileCombo(cboProfileName, cboProfileName)
    Call LoadProfileCombo(frmShip.cboBatchProfile, cboProfileName)
    Call GetSetupFromReg
    Call lblInputPage_Click(1)
    Call lblOutputPage_Click(1)
    Call lblSvcCode_Click(1)
    Call SetTabLocks
    
    'Show system tab by default
    SSTab1.Tab = 0
    'Set combos on Program locks to default to first item in list
    cboTabs.ListIndex = 0
    cboButtons.ListIndex = 0
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : GetSetupFromReg()
' DateTime  : 2/18/2004
' Purpose   : Gets values from registry
' Call from : Form_Activate, Form_Load,
'---------------------------------------------------------------------------------------
'
Private Sub GetSetupFromReg()
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.GetSetupFromReg"
    
    With g_clsReg
        .hkey = HKEY_LOCAL_MACHINE
        .KeyRoot = MAINKEYROOT
        .Subkey = MAINSUBKEY
        'Create Settings key if it doesn't exist
        If Not g_clsReg.KeyExists Then g_clsReg.CreateKey
        
        On Error Resume Next
        'Load Meters into combo and set listindex
        Call LoadNameCombo(cboName, .GetRegistryValue("Name", ""))
        Call LoadNameCombo(frmShip.cboLocationName(0), .GetRegistryValue("Name", ""))
        Call LoadNameCombo(frmShip.cboLocationName(1), .GetRegistryValue("Name", ""))
        Call LoadNameCombo(frmShip.cboLocationName(2), .GetRegistryValue("Name", ""))
        Call LoadMetersCombo(f498, f498)
        Call LoadAcctNumCombo(f10, f10)

        'Server tab
        Call LoadIPCombo(.GetRegistryValue("FXRSIP", ""))
        txtFXRSPort = .GetRegistryValue("FXRSPort", "2000")
        chkConnectOnStartup = .GetRegistryValue("ConnectOnStartup", "0")
        'Peripherals
        f1282.ListIndex = CInt(.GetRegistryValue("LabelType", 0))
        f187.ListIndex = CInt(.GetRegistryValue("ThermalType", 0))
        f537 = .GetRegistryValue("PrinterUNC", "")
        txtMappedPath = .GetRegistryValue("MappedPath", "")
        chkCustomLabels = .GetRegistryValue("CustomLabels", "0")
        chkUseInBatch = .GetRegistryValue("UseInBatch", "0")
        Call chkCustomLabels_Click
        chkScaleConnected = .GetRegistryValue("ScaleConnected", "0")
        Call chkScaleConnected_Click
        cmbScalePort.ListIndex = CInt(.GetRegistryValue("ScalePort", 0))
        'Intl
        If .GetRegistryValue("PrintCI", "") = "Y" Then
            f113 = True
        Else
            optCustCI = True
        End If
        txtIRSEIN = .GetRegistryValue("IRSEIN", "")
        If .GetRegistryValue("IRS/EINType", "SE") = "SE" Then
            f1352(0).Value = True
        ElseIf .GetRegistryValue("IRS/EINType", "SE") = "SS" Then
            f1352(1).Value = True
        End If
        f538 = .GetRegistryValue("CIPrinterUNC", "")
        chkUseCommodityDB = .GetRegistryValue("UseCommodityDB", 0)
        'Default values for Batch Tab in frmShip
        frmShip.txtBatchFilename = .GetRegistryValue("BatchFilename", "")
        'Batch tab last saved profile
        cboProfileName = .GetRegistryValue("ProfileName", "")
        Call LoadProfile(cboProfileName)
        chkAddInputToOutput = .GetRegistryValue("AddInputToOutput", 0)
        'Rates tab
        chkAddHndlChg = .GetRegistryValue("AddHndlChg", 0)
        chkBySvc = .GetRegistryValue("BySvc", 0)
        f1588(1) = .GetRegistryValue("Type$1", True)
        f1588(2) = .GetRegistryValue("Type%2", False)
        f1588(3) = .GetRegistryValue("Type%3", False)
        f1606(0) = .GetRegistryValue("PerPackage", True)
        f1606(1) = .GetRegistryValue("PerShipment", False)
        optListandActual = .GetRegistryValue("ListandActual", True)
        optActual = .GetRegistryValue("ActualOnly", False)
        optList = .GetRegistryValue("ListOnly", False)
        Call SetServiceQuoteType
        'Surcharge amount
        For i = 1 To 6
            f1595(i) = .GetRegistryValue("f1595" & Str(i), "")
        Next
        'Custom Buttons
        For i = 1 To 3
            chkCustomButtons(i) = .GetRegistryValue("CustomButtons" & Str(i), 0)
            txtButtonCaption(i) = .GetRegistryValue("ButtonCaption" & Str(i), "Custom" & Str(i))
            txtButtonColor(i) = .GetRegistryValue("ButtonColor" & Str(i), 12640511)
        Next
        'Service Conv tab
        chkConvertSvcCodes = .GetRegistryValue("ConvertSvcCodes", 0)
        For i = 0 To txtCustSvcCode.UBound
            txtCustSvcCode(i) = .GetRegistryValue("CustSvcCode" & Str(i), "")
        Next
        'Program Locks Tab
        'Disable Tab checkboxes
        For i = 0 To chkDisableTab.UBound
            chkDisableTab(i) = .GetRegistryValue("DisableTab" & Str(i), 0)
        Next
        'Disable button checkboxes
        For i = 0 To chkDisableButton.UBound
            chkDisableButton(i) = .GetRegistryValue("DisableButton" & Str(i), 0)
        Next
        If chkDisableTab(0) = 0 Then
            'Ship Fields to Lock
            For i = 0 To chkShipTab.UBound
                chkShipTab(i) = .GetRegistryValue("ShipTab" & Str(i), 0)
            Next
            'Special Svcs Fields to Lock
            For i = 0 To chkSpecialSvcs.UBound
                chkSpecialSvcs(i) = .GetRegistryValue("SpecialSvcs" & Str(i), 0)
            Next
        End If
        If chkDisableTab(1) = 0 Then
            'Intl Fields to Lock
            For i = 0 To chkIntlTab.UBound
                chkIntlTab(i) = .GetRegistryValue("IntlTab" & Str(i), 0)
            Next
        End If
        If chkDisableTab(2) = 0 Then
            'Batch Fields to Lock
            For i = 0 To chkBatchTab.UBound
                chkBatchTab(i) = .GetRegistryValue("BatchTab" & Str(i), 0)
            Next
        End If
        If chkDisableTab(3) = 0 Then
            'Quote Fields to Lock
            For i = 0 To chkQuoteTab.UBound
                chkQuoteTab(i) = .GetRegistryValue("QuoteTab" & Str(i), 0)
            Next
        End If
        If chkDisableTab(0) = 0 Then
            'History Fields to Lock
            For i = 0 To chkHistoryTab.UBound
                chkHistoryTab(i) = .GetRegistryValue("HistoryTab" & Str(i), 0)
            Next
        End If
        'Password Tab
        txtAdminPswd = .GetRegistryValue("AdminPswd", "")
        txtLevel2Pswd = .GetRegistryValue("Level2Pswd", "")
        For i = 0 To chkLevel2Access.UBound
            chkLevel2Access(i) = .GetRegistryValue("Level2Access" & Str(i), 0)
        Next
        
        'Alt Return Addr
        Call LoadAltReturnAddrForm("AddrID", .GetRegistryValue("AddrID", ""))
        f1586 = .GetRegistryValue("AltPrintFlag", 0)
        
        'Do this last so that all above values get assigned to their global vars
        Call LoadMetersForm("Name", .GetRegistryValue("Name", ""))
    End With
        
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    If False Then
        Resume
    End If
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : imgButtonColor_Click()
' DateTime  : 6/9/2004
' Purpose   : Sets Custom buttons color to value selected in common dialog cdlColor(Index)
'---------------------------------------------------------------------------------------
'
Private Sub imgButtonColor_Click(Index As Integer)
    cdlColor(Index).ShowColor
    txtButtonColor(Index) = cdlColor(Index).Color
End Sub
'---------------------------------------------------------------------------------------
' Procedure : lblInputPage_Click()
' DateTime  : 6/9/2004
' Purpose   : When numbers are clicked on Batch Input the corresponding frame is made
'             visible. Also sets the number to bold and changes color to show which page
'             is selected.
'---------------------------------------------------------------------------------------
'
Private Sub lblInputPage_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.lblInputPage_Click"
    
    For i = 1 To 3
        If i = Index Then
            fraInputFieldNums(i).Visible = True
            lblInputPage(i).ForeColor = &H80FF&
            lblInputPage(i).FontBold = True
        Else
            fraInputFieldNums(i).Visible = False
            lblInputPage(i).ForeColor = vbBlack
            lblInputPage(i).FontBold = False
        End If
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : lblOutputPage_Click()
' DateTime  : 6/9/2004
' Purpose   : When numbers are clicked on Batch Output the corresponding frame is made
'             visible. Also sets the number to bold and changes color to show which page
'             is selected.
'---------------------------------------------------------------------------------------
'
Private Sub lblOutputPage_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.lblOutputPage_Click"
    
    For i = 1 To 3
        If i = Index Then
            fraOutputFieldNums(i).Visible = True
            lblOutputPage(i).ForeColor = &H80FF&
            lblOutputPage(i).FontBold = True
        Else
            fraOutputFieldNums(i).Visible = False
            lblOutputPage(i).ForeColor = vbBlack
            lblOutputPage(i).FontBold = False
        End If
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub

'---------------------------------------------------------------------------------------
' Procedure : lblShipPage_Click()
' DateTime  : 6/29/2004
' Purpose   : When numbers are clicked on Admin tab the corresponding frame is made
'             visible. Also sets the number to bold and changes color to show which page
'             is selected.
'---------------------------------------------------------------------------------------
'
Private Sub lblShipPage_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.lblShipPage_Click"
    
    For i = 1 To 3
        If i = Index Then
            fraTabShip(i).Visible = True
            lblShipPage(i).ForeColor = &H80FF&
            lblShipPage(i).FontBold = True
        Else
            fraTabShip(i).Visible = False
            lblShipPage(i).ForeColor = vbBlack
            lblShipPage(i).FontBold = False
        End If
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub

'---------------------------------------------------------------------------------------
' Procedure : lblSvcCode_Click()
' DateTime  : 6/9/2004
' Purpose   : When Domestic or International is clicked on Service Conv page the appropriate
'             frame is shown and label font set to bold and color orange to show current
'             page.
'---------------------------------------------------------------------------------------
'
Private Sub lblSvcCode_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.lblSvcCode_Click"
    
    For i = 1 To 2
        If i = Index Then
            fraSvcCode(i).Visible = True
            lblSvcCode(i).ForeColor = &H80FF&
            lblSvcCode(i).FontBold = True
        Else
            fraSvcCode(i).Visible = False
            lblSvcCode(i).ForeColor = vbBlack
            lblSvcCode(i).FontBold = False
        End If
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : optCustCI_Click()
' DateTime  : 2/18/2004
' Purpose   : Who Prints CI? Customer is selected. Disable CI Prt UNC field and label,
'             set Total Customs Value label to bold font (required) and call
'             routine to set Unit of Measure label to regular font (not required).
'---------------------------------------------------------------------------------------
'
Private Sub optCustCI_Click()
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.optCustCI_Click"
    
    If optCustCI Then
        f538.Enabled = False
        lbl538.Enabled = False
        frmShip.lblCommodity(6).FontBold = True
        frmIPDAdd.f1592.Enabled = True
    Else
        f538.Enabled = True
        lbl538.Enabled = True
    End If
    Call SetUnitOfMeasureLabel
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SetUnitOfMeasureLabel()
' DateTime  : 2/18/2004
' Purpose   : Sets Unit of Measure label to bold if FedEx is printing CI or if FedEx is
'             filing SED.
' Call from : optCustCI_Click(), f113_Click(),
'---------------------------------------------------------------------------------------
'
Private Sub SetUnitOfMeasureLabel()

    On Error GoTo EH
    g_strErrorLocation = "frmSetup.SetUnitOfMeasureLabel"
    
    frmShip.lblCommodity(4).FontBold = IIf(f113.Value = True, True, False)
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : LoadAltReturnAddrForm()
' DateTime  : 2/18/2004
' Purpose   : Gets Alt Return Addr info from database and populates Alt Return Addr fields.
' Call from :
'---------------------------------------------------------------------------------------
'
Public Sub LoadAltReturnAddrForm(ByVal strFieldName As String, ByVal strFieldValue As String)

    Dim strQuery As String
    Dim rsAltAddr As New ADODB.Recordset
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.LoadAltReturnAddrForm"
    
    strQuery = "SELECT * FROM AltReturnAddr WHERE " & strFieldName & " = " & SingleQuotes(strFieldValue)
    rsAltAddr.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    
    If Not rsAltAddr.BOF Or Not rsAltAddr.EOF Then
        cboAddrID = rsAltAddr!AddrID & ""
        f1485 = rsAltAddr!f1485 & ""    'Contact
        f1486 = rsAltAddr!f1486 & ""    'Company
        f1487 = rsAltAddr!f1487 & ""    'Addr1
        f1488 = rsAltAddr!f1488 & ""    'Addr2
        f1489 = rsAltAddr!f1489 & ""    'City
        f1490 = rsAltAddr!f1490 & ""    'St
        f1491 = rsAltAddr!f1491 & ""    'Zip
        f1585 = rsAltAddr!f1585 & ""    'Country
        f1492 = rsAltAddr!f1492 & ""    'Phone
    End If

Release:
    If rsAltAddr.State = adStateOpen Then rsAltAddr.Close
    Set rsAltAddr = Nothing
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    Resume Release
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : LoadMetersForm()
' DateTime  : 2/18/2004
' Purpose   : Gets Meter info from database and populates meter fields.
' Call from : f10_Click(), Form_Activate
'---------------------------------------------------------------------------------------
'
Public Sub LoadMetersForm(ByVal strFieldName As String, ByVal strFieldValue As String)

    Dim strQuery As String
    Dim rsMeters As New ADODB.Recordset
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.LoadMetersForm"
    
    strQuery = "SELECT * FROM Meters WHERE " & strFieldName & " = " & SingleQuotes(strFieldValue)
    rsMeters.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    
    If Not rsMeters.BOF Or Not rsMeters.EOF Then
        cboName = rsMeters!name & ""
        f498 = rsMeters!f498 & ""
        f10 = rsMeters!f10 & ""
        f32 = rsMeters!f32 & ""
        f4 = rsMeters!f4 & ""
        f5 = rsMeters!f5 & ""
        f7 = rsMeters!f7 & ""
        f8 = rsMeters!f8 & ""
        f9 = rsMeters!f9 & ""
        f117 = rsMeters!f117 & ""
        f183 = rsMeters!f183 & ""
        f1118 = rsMeters!f1118 & ""
        chkIPD = rsMeters!IPDAcct
    End If

Release:
    If rsMeters.State = adStateOpen Then rsMeters.Close
    Set rsMeters = Nothing
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    Resume Release
    If False Then
        Resume
    End If
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : f1588_Click()
' DateTime  : 6/9/2004
' Purpose   : Sets the sign and tooltip for the services on the Rating tab if handling charge
'             is percentage or dollar amount.
'---------------------------------------------------------------------------------------
'
Private Sub f1588_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.f1588_Click"
    
    If Index = 1 Then
        For i = 1 To 6
            lblSign(i).Caption = "$"
            f1595(i).ToolTipText = "Enter dollar amount, e.g. 5.00 = $5.00"
        Next i
    Else
        For i = 1 To 6
            lblSign(i).Caption = "%"
            f1595(i).ToolTipText = "Enter as whole percent, e.g. 15 = 15%"
        Next i
    End If
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SaveMeter()
' DateTime  : 2/18/2004
' Modified  : 10/26/2004 - Added IPDAcct to query
' Purpose   : Adds meter info to the Meters table in database.
' Call from : cmdSave_Click
'---------------------------------------------------------------------------------------
'
Private Sub SaveMeter()
    Dim strQuery As String
    Dim rsMeters As New ADODB.Recordset
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.SaveMeter"
    
    'Check to ensure a new name is entered
    If cboName = "[Create New]" Then
        MsgBox "Please rename the location and click Save", vbExclamation, "Location Save Error"
        cboName.SetFocus
        Exit Sub
    End If
    
    strQuery = "SELECT * FROM Meters WHERE f498 = " & SingleQuotes(f498)
    rsMeters.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    
    'If meter # doesn't exist add it
    If rsMeters.EOF Then
        strQuery = "INSERT INTO Meters VALUES("
        strQuery = strQuery + SingleQuotes(cboName) + ","
        strQuery = strQuery + SingleQuotes(f498) + ","
        strQuery = strQuery + SingleQuotes(f10) + ","
        strQuery = strQuery + SingleQuotes(f32) + ","
        strQuery = strQuery + SingleQuotes(f4) + ","
        strQuery = strQuery + SingleQuotes(f5) + ","
        strQuery = strQuery + SingleQuotes(f7) + ","
        strQuery = strQuery + SingleQuotes(Left(f8, 2)) + ","
        strQuery = strQuery + SingleQuotes(f9) + ","
        strQuery = strQuery + SingleQuotes(Left(f117, 2)) + ","
        strQuery = strQuery + SingleQuotes(f183) + ","
        strQuery = strQuery + SingleQuotes(f1118) + ","
        strQuery = strQuery + CStr(chkIPD) + ")"
        
        g_connFSMSClient.Execute strQuery
    'Else update it
    Else
        strQuery = "UPDATE Meters SET [Name] = " + SingleQuotes(cboName) + ","
        strQuery = strQuery + "[f498] = " + SingleQuotes(f498) + ","
        strQuery = strQuery + "[f10] = " + SingleQuotes(f10) + ","
        strQuery = strQuery + "[f32] = " + SingleQuotes(f32) + ","
        strQuery = strQuery + "[f4] = " + SingleQuotes(f4) + ","
        strQuery = strQuery + "[f5] = " + SingleQuotes(f5) + ","
        strQuery = strQuery + "[f7] = " + SingleQuotes(f7) + ","
        strQuery = strQuery + "[f8] = " + SingleQuotes(Left(f8, 2)) + ","
        strQuery = strQuery + "[f9] = " + SingleQuotes(f9) + ","
        strQuery = strQuery + "[f117] = " + SingleQuotes(Left(f117, 2)) + ","
        strQuery = strQuery + "[f183] = " + SingleQuotes(f183) + ","
        strQuery = strQuery + "[f1118] = " + SingleQuotes(f1118) + ","
        strQuery = strQuery + "[IPDAcct] = " + CStr(chkIPD)
        strQuery = strQuery + " WHERE f498 = " + SingleQuotes(f498)
        g_connFSMSClient.Execute strQuery
    End If
    
    'Enable Delete button
    cmdDelete.Enabled = True
    
Release:
    If rsMeters.State = adStateOpen Then rsMeters.Close
    Set rsMeters = Nothing
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    Resume Release
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SetCustomButtons()
' DateTime  : 5/11/2004
' Purpose   : Sets Visible, Caption, and Backcolor properties of the custom buttons.
' Call from :
'---------------------------------------------------------------------------------------
'
Public Sub SetCustomButtons()
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.SetCustomButtons"
    
    For i = 1 To 3
        If chkCustomButtons(i) = 1 Then
            frmShip.cmdCustom(i).Visible = True
            frmShip.cmdCustom(i).Caption = txtButtonCaption(i)
            frmShip.cmdCustom(i).BackColor = txtButtonColor(i)
        Else
            frmShip.cmdCustom(i).Visible = False
        End If
    Next
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : txtButtonColor_LostFocus(Index As Integer)
' DateTime  : 5/11/2004
' Purpose   : If Button Color is left blank it gets set to common button color.
' Call from :
'---------------------------------------------------------------------------------------
'
Private Sub txtButtonColor_LostFocus(Index As Integer)
    If txtButtonColor(Index) = "" Then
        txtButtonColor(Index) = 12640511
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : txtFieldNum_Change(Index As Integer)
' DateTime  : 6/9/2004
' Purpose   : Batch Defaults tab Field #s are numeric only.
'---------------------------------------------------------------------------------------
'
Private Sub txtFieldNum_Change(Index As Integer)
    Call NumericOnly(txtFieldNum(Index), False)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : txtInputFld_LostFocus(Index As Integer)
' DateTime  : 7/6/2004
' Purpose   : Make "N/A" uppercase.
' Call from :
'---------------------------------------------------------------------------------------
'
Private Sub txtInputFld_LostFocus(Index As Integer)
    If Not IsNumeric(txtInputFld(Index)) Then
        txtInputFld(Index) = UCase(txtInputFld(Index))
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : txtMappedPath_LostFocus()
' DateTime  : 12/9/2004
' Purpose   : Adds a trailing backslash to Mapped Path
'---------------------------------------------------------------------------------------
'
Private Sub txtMappedPath_LostFocus()
    If Right(txtMappedPath, 1) <> "\" And Len(txtMappedPath) > 0 Then
        txtMappedPath = txtMappedPath & "\"
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : txtValue_MouseMove()
' DateTime  : 6/9/2004
' Purpose   : Batch Default tab Values are set to ToolTipText to be able to view the entire
'             text on mouse over.
'---------------------------------------------------------------------------------------
'
Private Sub txtValue_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtValue(Index).ToolTipText = txtValue(Index)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SaveProfile()
' DateTime  : 6/9/2004
' Purpose   : Adds or updates a Profile on the Batch Tabs.
'---------------------------------------------------------------------------------------
'
Private Sub SaveProfile()
    Dim strQuery As String
    Dim rsProfile As New ADODB.Recordset
    Dim strDefaultFieldNums As String
    Dim strDefaultValues As String
    Dim strInputFieldNums As String
    Dim strOutputFieldNums As String
    Dim i As Integer
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.SaveProfile"
    
    'Check to ensure a new name is entered
    If cboProfileName = "" Then
        Exit Sub
    ElseIf cboProfileName = "[Create New]" Then
        MsgBox "Please rename the profile and click Save", vbExclamation, "Profile Save Error"
        cboProfileName.SetFocus
        Exit Sub
    End If
    'Create Default Field & Value strings
    For i = 0 To txtFieldNum.UBound
        strDefaultFieldNums = strDefaultFieldNums & txtFieldNum(i) & ","
        strDefaultValues = strDefaultValues & txtValue(i) & ","
    Next
    'Create Input and Out field strings
    For i = 0 To txtInputFld.UBound
        strInputFieldNums = strInputFieldNums & txtInputFld(i) & ","
        strOutputFieldNums = strOutputFieldNums & txtOutputFld(i) & ","
    Next
    
    'Remove trailing commas from strings
    strDefaultFieldNums = Left(strDefaultFieldNums, Len(strDefaultFieldNums) - 1)
    strDefaultValues = Left(strDefaultValues, Len(strDefaultValues) - 1)
    strInputFieldNums = Left(strInputFieldNums, Len(strInputFieldNums) - 1)
    strOutputFieldNums = Left(strOutputFieldNums, Len(strOutputFieldNums) - 1)
    
    strQuery = "SELECT * FROM BatchProfiles WHERE ProfileName ='" + cboProfileName + "'"
    rsProfile.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    
    'If meter # doesn't exist add it
    If rsProfile.EOF Then
        strQuery = "INSERT INTO BatchProfiles VALUES("
        strQuery = strQuery + SingleQuotes(cboProfileName) + ","
        strQuery = strQuery + SingleQuotes(txtFilesPath) + ","
        strQuery = strQuery + SingleQuotes(strDefaultFieldNums) + ","
        strQuery = strQuery + SingleQuotes(strDefaultValues) + ","
        strQuery = strQuery + SingleQuotes(cboDelimIn) + ","
        strQuery = strQuery + SingleQuotes(cboQualIn) + ","
        strQuery = strQuery + SingleQuotes(strInputFieldNums) + ","
        strQuery = strQuery + SingleQuotes(cboDelimOut) + ","
        strQuery = strQuery + SingleQuotes(cboQualOut) + ","
        strQuery = strQuery + SingleQuotes(strOutputFieldNums) + ")"
        g_connFSMSClient.Execute strQuery
    'Else update it
    Else
        strQuery = "UPDATE BatchProfiles SET [ProfileName] = " + SingleQuotes(cboProfileName) + ","
        strQuery = strQuery + "[FilesPath] = " + SingleQuotes(txtFilesPath) + ","
        strQuery = strQuery + "[DefaultFieldNums] = " + SingleQuotes(strDefaultFieldNums) + ","
        strQuery = strQuery + "[DefaultValues] = " + SingleQuotes(strDefaultValues) + ","
        strQuery = strQuery + "[DelimIn] = " + SingleQuotes(cboDelimIn) + ","
        strQuery = strQuery + "[QualIn] = " + SingleQuotes(cboQualIn) + ","
        strQuery = strQuery + "[InputFields] = " + SingleQuotes(strInputFieldNums) + ","
        strQuery = strQuery + "[DelimOut] = " + SingleQuotes(cboDelimOut) + ","
        strQuery = strQuery + "[QualOut] = " + SingleQuotes(cboQualOut) + ","
        strQuery = strQuery + "[OutputFields] = " + SingleQuotes(strOutputFieldNums)
        strQuery = strQuery + " WHERE ProfileName = " + SingleQuotes(cboProfileName)
        g_connFSMSClient.Execute strQuery
    End If

Release:
    If rsProfile.State = adStateOpen Then rsProfile.Close
    Set rsProfile = Nothing
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    Resume Release
End Sub
'---------------------------------------------------------------------------------------
' Procedure : LoadProfile()
' DateTime  : 6/9/2004
' Purpose   : Loads selected Profile on the Batch Default tab.
'---------------------------------------------------------------------------------------
'
Public Sub LoadProfile(ByVal strProfileName As String)
    Dim strQuery As String
    Dim rsProfile As New ADODB.Recordset
    Dim strDefaultFieldNums() As String
    Dim strDefaultValues() As String
    Dim strInputFieldNums() As String
    Dim strOutputFieldNums() As String
    Dim i As Integer
    
    Dim s As String
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.LoadProfile"

    strQuery = "SELECT * FROM BatchProfiles WHERE ProfileName = " & SingleQuotes(strProfileName)
    rsProfile.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    
    If Not rsProfile.BOF Or Not rsProfile.EOF Then
        txtFilesPath = rsProfile!FilesPath
        cboProfileName = rsProfile!ProfileName
        'Split Default Fields & Values into arrays
        strDefaultFieldNums = Split(rsProfile!DefaultFieldNums, ",")
        strDefaultValues = Split(rsProfile!DefaultValues, ",")
        'Assign Default Fields and Values
        For i = 0 To txtFieldNum.UBound
            txtFieldNum(i) = strDefaultFieldNums(i)
            txtValue(i) = strDefaultValues(i)
        Next
        'Split Input and Output fields into arrays
        strInputFieldNums = Split(rsProfile!InputFields, ",")
        strOutputFieldNums = Split(rsProfile!OutputFields, ",")
        'Assign Input and Output fields
        For i = 0 To txtInputFld.UBound
            txtInputFld(i) = strInputFieldNums(i)
            txtOutputFld(i) = strOutputFieldNums(i)
        Next
        cboDelimIn = rsProfile!DelimIn
        cboQualIn = rsProfile!QualIn
        cboDelimOut = rsProfile!DelimOut
        cboQualOut = rsProfile!QualOut
    Else
        'Assign Default Fields and Values
        For i = 0 To txtFieldNum.UBound
            txtFieldNum(i) = ""
            txtValue(i) = ""
        Next
        'Assign Input and Output fields
        For i = 0 To txtInputFld.UBound
            txtInputFld(i) = ""
            txtOutputFld(i) = ""
        Next
        cboDelimIn = "Comma"
        cboQualIn = "None"
        cboDelimOut = "Comma"
        cboQualOut = "None"
    End If
    
Release:
    If rsProfile.State = adStateOpen Then rsProfile.Close
    Set rsProfile = Nothing
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    Resume Release
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SetServiceQuoteType()
' DateTime  : 6/28/2004
' Purpose   : Sets the Service Quote Type on the Service Quote tab. Calls frmShip.SSTab1_Click
'             which has code that makes fraShowType visible if both List and Discounted rates
'             is selected else it hides the frame. fraShowType has optType() buttons for
'             selecting List or Discounted rates.
'---------------------------------------------------------------------------------------
'
Private Sub SetServiceQuoteType()
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.SetServiceQuoteType"
    
    With frmShip
        If optListandActual Then
            .optRate(0) = True
        ElseIf optActual Then
            .optRate(0) = True
        ElseIf optList Then
            .optRate(1) = True
        End If
    End With

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Sub
'---------------------------------------------------------------------------------------
' Procedure : ShipTabLocks()
' DateTime  : 3/6/2005
' Purpose   : Disables Ship tab fields that are checked on the Program Locks tab in Setup
' Calls     : SetTabLocks
'---------------------------------------------------------------------------------------
'
Private Sub ShipTabLocks()
        
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.ShipTabLocks"
    
    With frmShip
        'Page 1
        .f1.Enabled = IIf(chkShipTab(0) = 1, False, True)                'Order ID
        .f50.Enabled = IIf(chkShipTab(1) = 1, False, True)               'Recip Country
        .f12.Enabled = IIf(chkShipTab(2) = 1, False, True)               'Recip Contact
        .f11.Enabled = IIf(chkShipTab(3) = 1, False, True)               'Recip Company
        .f13.Enabled = IIf(chkShipTab(4) = 1, False, True)               'Recip Addr1
        .f14.Enabled = IIf(chkShipTab(5) = 1, False, True)               'Recip Addr2
        .f15.Enabled = IIf(chkShipTab(6) = 1, False, True)               'Recip City
        .f16.Enabled = IIf(chkShipTab(7) = 1, False, True)               'Recip State
        .f17.Enabled = IIf(chkShipTab(8) = 1, False, True)               'Recip Zip
        .f18.Enabled = IIf(chkShipTab(9) = 1, False, True)               'Recip Phone
        .f440.Enabled = IIf(chkShipTab(10) = 1, False, True)             'Residential
        .f25.Enabled = IIf(chkShipTab(11) = 1, False, True)              'References
        .f3056.Enabled = IIf(chkShipTab(12) = 1, False, True)            'PO#
        .f3057.Enabled = IIf(chkShipTab(13) = 1, False, True)            'Inv #
        .f38.Enabled = IIf(chkShipTab(14) = 1, False, True)              'Dept Code
        .f116.Enabled = IIf(chkShipTab(15) = 1, False, True)             '# of Pkgs
        .chkDuplicate.Enabled = IIf(chkShipTab(15) = 1, False, True)     'Identical Pkgs
        .f1670.Enabled = IIf(chkShipTab(16) = 1, False, True)            'Weight
        .f75.Enabled = IIf(chkShipTab(17) = 1, False, True)              'Weight type
        .f1274.Enabled = IIf(chkShipTab(18) = 1, False, True)            'Service Type
        .f1273.Enabled = IIf(chkShipTab(19) = 1, False, True)            'Pkg Type
        If chkShipTab(20) = 0 Then                                       'DIM fields
            .f57(0).Enabled = True
            .f58(0).Enabled = True
            .f59(0).Enabled = True
            .cboBoxName(0).Enabled = True                                   'DIM combo
        Else
            .f57(0).Enabled = False
            .f58(0).Enabled = False
            .f59(0).Enabled = False
            .cboBoxName(0).Enabled = False
        End If
        .f24.Enabled = IIf(chkShipTab(21) = 1, False, True)                  'Ship Date
        .Image2.Enabled = IIf(chkShipTab(21) = 1, False, True)               'Calendar icon
        .f26.Enabled = IIf(chkShipTab(22) = 1, False, True)                  'Declared Value
        .f23.Enabled = IIf(chkShipTab(23) = 1, False, True)                  'Bill-to
        .f20.Enabled = IIf(chkShipTab(24) = 1, False, True)                  'Bill-to Acct#
        
         'Multi-Piece button
         .cmdMPS.Visible = IIf(chkShipTab(25) = 1, False, True)
            
        .cboLocationName(0).Enabled = IIf(chkShipTab(26) = 1, False, True)   'Location
        
        'Page 2 US Special Svcs
        'Express
        .f1332(0).Enabled = IIf(chkSpecialSvcs(0) = 1, False, True)             'Alcohol
        .cmdViewAlcohol(0).Enabled = IIf(chkSpecialSvcs(0) = 1, False, True)    'Alcohol View/Edit
        .f27(0).Enabled = IIf(chkSpecialSvcs(1) = 1, False, True)               'COD
        .cmdViewCOD(0).Enabled = IIf(chkSpecialSvcs(1) = 1, False, True)        'COD View/Edit
        .f51(0).Enabled = IIf(chkSpecialSvcs(2) = 1, False, True)               'Sig Rel
        .f1118(0).Enabled = IIf(chkSpecialSvcs(2) = 1, False, True)              'Sig Rel #
        .f1268(0).Enabled = IIf(chkSpecialSvcs(3) = 1, False, True)             'Dry Ice
        .cmdViewDryIce(0).Enabled = IIf(chkSpecialSvcs(3) = 1, False, True)     'Dry Ice View/Edit
        .f1200(0).Enabled = IIf(chkSpecialSvcs(4) = 1, False, True)             'HAL
        .cmdViewHAL(0).Enabled = IIf(chkSpecialSvcs(4) = 1, False, True)        'HAL View/Edit
        .f1266(0).Enabled = IIf(chkSpecialSvcs(5) = 1, False, True)             'Sat Del
        .f1208.Enabled = IIf(chkSpecialSvcs(6) = 1, False, True)                'Signature Required
        .f2382(2).Enabled = IIf(chkSpecialSvcs(7) = 1, False, True)             'Return Labels
        'Intl
        .f1332(1).Enabled = IIf(chkSpecialSvcs(8) = 1, False, True)             'Alcohol
        .cmdViewAlcohol(1).Enabled = IIf(chkSpecialSvcs(8) = 1, False, True)    'Alcohol View/Edit
        .f1268(1).Enabled = IIf(chkSpecialSvcs(9) = 1, False, True)             'Dry Ice
        .cmdViewDryIce(1).Enabled = IIf(chkSpecialSvcs(9) = 1, False, True)     'Dry Ice View/Edit
        .f1200(1).Enabled = IIf(chkSpecialSvcs(10) = 1, False, True)             'HAL
        .cmdViewHAL(1).Enabled = IIf(chkSpecialSvcs(10) = 1, False, True)        'HAL View/Edit
        .f1174(0).Enabled = IIf(chkSpecialSvcs(11) = 1, False, True)            'BSO
        .cmdViewBSO(0).Enabled = IIf(chkSpecialSvcs(11) = 1, False, True)       'BSO View/Edit
        'Ground
        .f3008(0).Enabled = IIf(chkSpecialSvcs(12) = 1, False, True)            'Auto POD
        .f3009(0).Enabled = IIf(chkSpecialSvcs(13) = 1, False, True)            'Acknowledgement of Delivery
        .f3018(0).Enabled = IIf(chkSpecialSvcs(14) = 1, False, True)            'Non-Standard pkging
        .f27(2).Enabled = IIf(chkSpecialSvcs(15) = 1, False, True)              'COD
        .cmdViewCOD(1).Enabled = IIf(chkSpecialSvcs(15) = 1, False, True)       'COD View/Edit
        .f2382(1).Enabled = IIf(chkSpecialSvcs(16) = 1, False, True)            'Return Labels
        'FHD
        .f3008(1).Enabled = IIf(chkSpecialSvcs(17) = 1, False, True)            'Auto POD
        .f3009(1).Enabled = IIf(chkSpecialSvcs(18) = 1, False, True)            'Acknowledgement of Delivery
        .f3018(1).Enabled = IIf(chkSpecialSvcs(19) = 1, False, True)            'Non-Standard pkging
        .f3019.Enabled = IIf(chkSpecialSvcs(20) = 1, False, True)               'Sig Svc
        .f3020(0).Enabled = IIf(chkSpecialSvcs(21) = 1, False, True)            'Date Certain
        .cmdDateCertain.Enabled = IIf(chkSpecialSvcs(21) = 1, False, True)      'Date Certain View/Edit
        .f3020(1).Enabled = IIf(chkSpecialSvcs(22) = 1, False, True)            'Evening Delivery
        .f3020(2).Enabled = IIf(chkSpecialSvcs(23) = 1, False, True)            'Appt Del
        .cmdApptDel.Enabled = IIf(chkSpecialSvcs(23) = 1, False, True)          'Appt Del View/Edit
        .f2382(0).Enabled = IIf(chkSpecialSvcs(24) = 1, False, True)            'Return Labels
        'Page 3 CA Special Svcs
        'CA Express
        .f51(1).Enabled = IIf(chkSpecialSvcs(25) = 1, False, True)              'Sig Rel
        .f1118(1).Enabled = IIf(chkSpecialSvcs(25) = 1, False, True)             'Sig Rel #
        .f1268(2).Enabled = IIf(chkSpecialSvcs(26) = 1, False, True)            'Dry Ice
        .cmdViewDryIce(2).Enabled = IIf(chkSpecialSvcs(26) = 1, False, True)    'Dry Ice View/Edit
        .f1200(2).Enabled = IIf(chkSpecialSvcs(27) = 1, False, True)            'HAL
        .cmdViewHAL(2).Enabled = IIf(chkSpecialSvcs(27) = 1, False, True)       'HAL View/Edit
        .f1266(1).Enabled = IIf(chkSpecialSvcs(28) = 1, False, True)            'Sat Del
        'CA Export
        .f1268(3).Enabled = IIf(chkSpecialSvcs(29) = 1, False, True)            'Dry Ice
        .cmdViewDryIce(3).Enabled = IIf(chkSpecialSvcs(29) = 1, False, True)    'Dry Ice View/Edit
        .f1200(3).Enabled = IIf(chkSpecialSvcs(30) = 1, False, True)            'HAL
        .cmdViewHAL(3).Enabled = IIf(chkSpecialSvcs(30) = 1, False, True)       'HAL View/Edit
        .f1174(1).Enabled = IIf(chkSpecialSvcs(31) = 1, False, True)            'BSO
        .cmdViewBSO(1).Enabled = IIf(chkSpecialSvcs(31) = 1, False, True)       'BSO View/Edit
        'CA Ground
        .f3008(2).Enabled = IIf(chkSpecialSvcs(32) = 1, False, True)            'Auto POD
        .f3018(2).Enabled = IIf(chkSpecialSvcs(33) = 1, False, True)            'Non-Standard pkging
        .f27(1).Enabled = IIf(chkSpecialSvcs(34) = 1, False, True)              'COD
        .cmdViewCOD(2).Enabled = IIf(chkSpecialSvcs(34) = 1, False, True)       'COD View/Edit
    End With

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Sub
'---------------------------------------------------------------------------------------
' Procedure : IntlTabLocks()
' DateTime  : 3/6/2005
' Purpose   : Disables the fields on the Intl Tab defined on the Program Locks tab.
' Calls     : SetTabLocks
'---------------------------------------------------------------------------------------
'
Private Sub IntlTabLocks()
        
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.IntlTabLocks"
    
    With frmShip
        .f79Doc.Enabled = IIf(chkIntlTab(0) = 1, False, True)            'Doc Description
        .f80(1).Enabled = IIf(chkIntlTab(1) = 1, False, True)            'Doc Country of Manufacture
        .f1358.Enabled = IIf(chkIntlTab(2) = 1, False, True)             'ITN/FTSR/XTN #
        .f413.Enabled = IIf(chkIntlTab(3) = 1, False, True)              'NAFTA Applies
        .f72.Enabled = IIf(chkIntlTab(4) = 1, False, True)               'Terms of Sale
        .f532.Enabled = IIf(chkIntlTab(5) = 1, False, True)              'Freight Chg
        .f533.Enabled = IIf(chkIntlTab(6) = 1, False, True)              'Insurance Chg
        .f534.Enabled = IIf(chkIntlTab(7) = 1, False, True)              'Misc Chg
        .f1357.Enabled = IIf(chkIntlTab(7) = 1, False, True)             'Misc Chg Type
        .f418(1).Enabled = IIf(chkIntlTab(8) = 1, False, True)           'Comment 1
        .f418(2).Enabled = IIf(chkIntlTab(9) = 1, False, True)           'Comment 2
        .f418(3).Enabled = IIf(chkIntlTab(10) = 1, False, True)           'Comment 3
        .f70.Enabled = IIf(chkIntlTab(11) = 1, False, True)              'Duty/Tax Pay Type
        .f71.Enabled = IIf(chkIntlTab(12) = 1, False, True)              'Duty/Tax Acct#
        .f74.Enabled = IIf(chkIntlTab(13) = 1, False, True)              'Country of Ultimate Dest
        .f73.Enabled = IIf(chkIntlTab(14) = 1, False, True)              'Parties Related
        .f79.Enabled = IIf(chkIntlTab(15) = 1, False, True)              'Commodity Description
        .f82.Enabled = IIf(chkIntlTab(16) = 1, False, True)              '# of Units
        .f414.Enabled = IIf(chkIntlTab(17) = 1, False, True)             'Unit of Measure
        .f1030.Enabled = IIf(chkIntlTab(18) = 1, False, True)            'Unit Value
        .f119.Enabled = IIf(chkIntlTab(19) = 1, False, True)             'Customs Value
        .f1090.Enabled = IIf(chkIntlTab(20) = 1, False, True)            'Rate Currency
        .f77.Enabled = IIf(chkIntlTab(21) = 1, False, True)              'Commodity Wgt
        .txtCommodityWgt.Enabled = IIf(chkIntlTab(22) = 1, False, True)  'Unit Wgt
        .f80(0).Enabled = IIf(chkIntlTab(23) = 1, False, True)           'Commod Country of Manufacture
        .f81.Enabled = IIf(chkIntlTab(24) = 1, False, True)              'Harmonized Code
        .f83.Enabled = IIf(chkIntlTab(25) = 1, False, True)              'Export License #
        .f84.Enabled = IIf(chkIntlTab(26) = 1, False, True)              'Export License Expire Date
        .Image3.Enabled = IIf(chkIntlTab(26) = 1, False, True)           'Calendar icon
    End With

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Sub
'---------------------------------------------------------------------------------------
' Procedure : BatchTabLocks()
' DateTime  : 6/30/2004
' Purpose   : Disables the fields on the Batch Tab defined on the Program Locks tab.
' Calls     : SetTabLocks
'---------------------------------------------------------------------------------------
'
Private Sub BatchTabLocks()
        
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.BatchTabLocks"
    
    With frmShip
        .cboBatchProfile.Enabled = IIf(chkBatchTab(0) = 1, False, True)      'Batch Profile
        .txtBatchFilename.Enabled = IIf(chkBatchTab(1) = 1, False, True)     'Batch Filename
    End With

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Sub
'---------------------------------------------------------------------------------------
' Procedure : QuoteTabLocks()
' DateTime  : 3/6/2005
' Purpose   : Disables the fields on the Quote Tab defined on the Program Locks tab.
' Calls     : SetTabLocks
'---------------------------------------------------------------------------------------
'
Private Sub QuoteTabLocks()
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.QuoteTabLocks"
    
    With frmShip
        .cboLocationName(2).Enabled = IIf(chkQuoteTab(0) = 1, False, True)   'Origin State
        .cboDestState.Enabled = IIf(chkQuoteTab(1) = 1, False, True)         'Destination State
        .txtNumPkgs.Enabled = IIf(chkQuoteTab(2) = 1, False, True)           '# of pkgs
        .txtDV.Enabled = IIf(chkQuoteTab(3) = 1, False, True)                'Declared Value
        .txtDestZip.Enabled = IIf(chkQuoteTab(4) = 1, False, True)           'Destination Zip
        .txtWeight.Enabled = IIf(chkQuoteTab(5) = 1, False, True)            'Weight
        If chkQuoteTab(6) = 0 Then                                           'All DIM fields and combo
            .f57(1).Enabled = True
            .f58(1).Enabled = True
            .f59(1).Enabled = True
            .cboBoxName(1).Enabled = True
        Else
            .f57(1).Enabled = False
            .f58(1).Enabled = False
            .f59(1).Enabled = False
            .cboBoxName(1).Enabled = False
        End If
        .chkSAT.Enabled = IIf(chkQuoteTab(7) = 1, False, True)              'SAT checkbox
        .chkCOD.Enabled = IIf(chkQuoteTab(8) = 1, False, True)              'COD checkbox
        .chkRES.Enabled = IIf(chkQuoteTab(9) = 1, False, True)              'RES checkbox
        .chkAOD.Enabled = IIf(chkQuoteTab(10) = 1, False, True)             'AOD checkbox
        .chkAPOD.Enabled = IIf(chkQuoteTab(11) = 1, False, True)            'APOD checkbox
        .chkNonSP.Enabled = IIf(chkQuoteTab(12) = 1, False, True)           'Non-SP checkbox
        .chkSIG.Enabled = IIf(chkQuoteTab(13) = 1, False, True)             'SIG checkbox
        .chkFHDSpecial(1).Enabled = IIf(chkQuoteTab(14) = 1, False, True)   'DC checkbox
        .chkFHDSpecial(2).Enabled = IIf(chkQuoteTab(15) = 1, False, True)   'ED checkbox
        .chkFHDSpecial(3).Enabled = IIf(chkQuoteTab(16) = 1, False, True)   'AD checkbox
    End With

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Sub
'---------------------------------------------------------------------------------------
' Procedure : HistoryTabLocks()
' DateTime  : 3/6/2005
' Purpose   : Disables the fields on the History Tab defined on the Program Locks tab.
' Calls     : SetTabLocks
'---------------------------------------------------------------------------------------
'
Private Sub HistoryTabLocks()
        
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.HistoryTabLocks"
    
    With frmShip
        .txtShipDate.Enabled = IIf(chkHistoryTab(0) = 1, False, True)          'Ship Date
        .cboLocationName(1).Enabled = IIf(chkHistoryTab(1) = 1, False, True)   'Location
        .cboSearchField.Enabled = IIf(chkHistoryTab(2) = 1, False, True)       'Search Field
        .optType(0).Enabled = IIf(chkHistoryTab(3) = 1, False, True)           'Express radio button
        .optType(1).Enabled = IIf(chkHistoryTab(4) = 1, False, True)           'Ground radio button
        .optType(2).Enabled = IIf(chkHistoryTab(5) = 1, False, True)           'Intl radio button
        .optStatus(0).Enabled = IIf(chkHistoryTab(6) = 1, False, True)         'Shipped radio button
        .optStatus(1).Enabled = IIf(chkHistoryTab(7) = 1, False, True)         'Deleted radio button
    End With

    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SetTabLocks()
' DateTime  : 6/30/2004
' Purpose   : If the tab is enabled call the routine to lock any fields configured on
'             the Program Locks tab.
' Calls     : cmdSave_Click, Form_Load
'---------------------------------------------------------------------------------------
'
Private Sub SetTabLocks()
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.SetTabLocks"
    
    If chkDisableTab(0) = 0 Then Call ShipTabLocks
    If chkDisableTab(1) = 0 Then Call IntlTabLocks
    If chkDisableTab(2) = 0 Then Call BatchTabLocks
    If chkDisableTab(3) = 0 Then Call QuoteTabLocks
    If chkDisableTab(4) = 0 Then Call HistoryTabLocks
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Sub
'---------------------------------------------------------------------------------------
' Procedure : DeleteMeter()
' DateTime  : 6/30/2004
' Purpose   : Delete a Location from Meters table.
'---------------------------------------------------------------------------------------
'
Public Function DeleteMeter(ByVal strName As String) As Integer
    Dim strQuery As String
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.DeleteMeter"
    
    strQuery = "DELETE FROM Meters WHERE Name = " & SingleQuotes(strName)
    g_connFSMSClient.Execute strQuery, DeleteMeter

    Exit Function

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Function
'---------------------------------------------------------------------------------------
' Procedure : DeleteProfile()
' DateTime  : 7/27/2004
' Purpose   : Delete a Profile from BatchProfiles table.
'---------------------------------------------------------------------------------------
'
Public Function DeleteProfile(ByVal strName As String) As Integer
    Dim strQuery As String
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.DeleteProfile"
    
    strQuery = "DELETE FROM BatchProfiles WHERE ProfileName = " & SingleQuotes(strName)
    g_connFSMSClient.Execute strQuery, DeleteProfile

    Exit Function

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
End Function
'---------------------------------------------------------------------------------------
' Procedure : AddFXRSIP
' DateTime  : 9/8/2004
' Purpose   : Adds an FXRS IP (or host name) to the Servers table in the database.
'---------------------------------------------------------------------------------------
'
Public Sub AddFXRSIP(ByVal strIP As String)
    
    Dim strQuery As String
    Dim rsIP As New ADODB.Recordset
    
    On Error GoTo EH
    g_strErrorLocation = "modInterface.AddFXRSIP"
    
    If strIP = "" Then Exit Sub
    
    strQuery = "SELECT IP FROM Servers WHERE IP = " & SingleQuotes(strIP)
    rsIP.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    If rsIP.EOF Then
        strQuery = "INSERT INTO Servers VALUES(" & SingleQuotes(strIP) & ")"
        g_connFSMSClient.Execute strQuery
    End If
    
Release:
    If rsIP.State = adStateOpen Then rsIP.Close
    Set rsIP = Nothing
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    Resume Release

End Sub
'---------------------------------------------------------------------------------------
' Procedure : DeleteFXRSIP()
' DateTime  : 9/8/2004
' Purpose   : Delete an FXRSIP from Servers table.
'---------------------------------------------------------------------------------------
'
Public Function DeleteFXRSIP(ByVal strIP As String) As Integer
    Dim strQuery As String
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.DeleteFXRSIP"
    
    strQuery = "DELETE FROM Servers WHERE IP = " & SingleQuotes(strIP)
    g_connFSMSClient.Execute strQuery, DeleteFXRSIP

    Exit Function

EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation

End Function
'---------------------------------------------------------------------------------------
' Procedure : LoadIPCombo()
' DateTime  : 9/8/2004
' Purpose   : Loads the FXRS IP combo on the Server tab.
'---------------------------------------------------------------------------------------
'
Private Sub LoadIPCombo(ByVal strCurrentIP As String)
    
    On Error GoTo EH
    g_strErrorLocation = "frmSetup.LoadIPCombo"
    
    Dim strQuery As String
    Dim rsIP As New ADODB.Recordset
    
    strQuery = "SELECT IP FROM Servers"
    rsIP.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    
    cboFXRSIP.Clear
    Do Until rsIP.EOF
        cboFXRSIP.AddItem rsIP!IP
        If strCurrentIP = rsIP!IP Then cboFXRSIP = rsIP!IP
        
        rsIP.MoveNext
    Loop
    
Release:
    If rsIP.State = adStateOpen Then rsIP.Close
    Set rsIP = Nothing

    Exit Sub
    
EH:
    MsgBox Err.Description, vbCritical, g_strErrorLocation
    Resume Release

End Sub
'---------------------------------------------------------------------------------------
' Procedure : SetUSCAFields()
' DateTime  : 3/16/2005
' Purpose   : Sets the IRS/EIN to Export Permit for Canada and enables checkbox on frmShip.
'---------------------------------------------------------------------------------------
'
Private Sub SetUSCAFields()

    If Left(f117, 2) = "CA" Then
        fraIRSEIN.Caption = "Export Permit"
        lblIRSEIN.Caption = "Export Permit #:"
        lbl1352.Visible = False
        f1352(0).Visible = False
        f1352(1).Visible = False
        With frmShip
            .chkB13A.Visible = True
            .lbl1358.Caption = "IRS/EIN/VAT #:"
        End With
    Else
        fraIRSEIN.Caption = "IRS/EIN"
        lblIRSEIN.Caption = "IRS/EIN #:"
        lbl1352.Visible = True
        f1352(0).Visible = True
        f1352(1).Visible = True
        With frmShip
            .chkB13A.Visible = False
            .lbl1358.Caption = "ITN/FTSR/XTN #:"
        End With
    End If
    
End Sub
